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

[MaOfDe]

Hi
bin mir nicht sicher, aber ich glaub die Title-Anweisung muss vor der BeginDoc stehen:

Delphi-Quellcode:

with Printer do 
begin 
  Title:='blabla'; 
  BeginDoc; 
    ...
  EndDoc; 
end;