Beim Drucken fehlt ein Bild !

[p.sprick]

Hallo Leute,
ich möcte auf einen Blatt 4 mal das selbe Bild drucken! Geht auch, aber auf einem Drucker fehlt
immer das erste Bild, auf allen anderen Druckern geht es hat jemmand eine Iddee ?

Hier der Code

Code:

if printdialog1.execute = false then exit;
Printer.BeginDoc;
Printer.Title:='Bilder Druck';

breite := printer.PageWidth div 2 -40;
Ratio := (printer.pagewidth div 2 - 40) /bild.Width;
hoehe := trunc(bild.Height * ratio);

// Bild 1
ARect := Bounds(10,10,breite,hoehe);
Printer.Canvas.StretchDraw(ARect,Bild);
printer.canvas.Font.Style := [fsBold];
printer.Canvas.TextOut(20,hoehe-100, dessin);
//* Bild 2
ARect := Bounds(printer.PageWidth div 2+20,10,breite , hoehe );
Printer.Canvas.StretchDraw(ARect,Bild);
printer.Canvas.TextOut(printer.PageWidth div 2+30,hoehe-100, dessin);
//* Bild 3
ARect := Bounds(10,printer.Pageheight div 2+20,breite , hoehe );
Printer.Canvas.StretchDraw(ARect,Bild);
printer.Canvas.TextOut(20,printer.PageHeight div 2 + hoehe -100, dessin);
//* Bild 4
ARect := Bounds(printer.PageWidth div 2+20,printer.Pageheight div 2+20,breite , hoehe );
Printer.Canvas.StretchDraw(ARect,Bild);
printer.Canvas.TextOut(printer.PageWidth div 2+30,printer.Pageheight div 2 + hoehe -100, dessin);

Printer.EndDoc;

[mkinzler]

Ersetzte mal

Delphi-Quellcode:

if printdialog1.execute = false then exit;

mit

Delphi-Quellcode:

if not printdialog1.execute then exit;

Höchstwahrscheinlich sind die Werte 10/10 einfach zu klein