Drucker druckt regelmäßig erstnal leere Seite

[emkay]

Hallo!

Mein Programm lässt den Drucker regelmäßig immer erstmal eine leere Seite ausdrucken. Beim zweiten Aufruf der Druckroutine gibt er mir das gewünschte Ergebnis.
Hat jemand eine Ahnung woran das liegen könnte?

Hier meine Codebeispiel:

Code:

  With Printer Do begin
    BeginDoc;
    Title := 'blabla';
    GetPrinterInfo;                      // ermitteln der ganzen Maße-Variablen
    ..
    (meine Zeichenroutinen)
    ( auch bei Canvas.Rectangle(100,100,500,500);)
    ..
    EndDoc;
  end;

Gruß
emkay