I get an most irritating error when trying to output BMP-images to the printer. The code below:
Printer.Begindoc;
for aa := 0 to 4 do begin
Image1 := TImage.Create(form1);
Image1.Picture.LoadFromFile(
format('c:\pics\pic%0.2d.bmp',[aa+1]));
Printer.Canvas.StretchDraw(Rect(aa*300,10,aa*300+290,300),Image1.Picture.Graphic);
Image1.Free;
end;
Printer.Enddoc;
... should read PIC01..05.BMP into the TImage Image1 and then transfer each picture to a rectangular area on the printer paper. But every time I run it some (or even all) pictures are left out! I put the code above in an OnClick procedure for a button and when I pressed the button, not one print-out looked the same!!
I use a P75, 24megs of RAM and I've tried it both on my HP Deskjet 890C and my OKI Okipage 4w. Same annoying results on both of them! The BMPs are about 685 kb in size.
PLEASE HELP!!!