TPrintDialog og TPrinter, problemmer med PixelPerInch

Hej Igen.

Jeg har nogle problemmer med udskrivning af data i koloner, den første gang jeg udskriver med nedenstående komando, bliver udskrften forkert, da Tprinter ikke aflæser PixelPerInch korrekt, PixelPerInch bliver først korrekt ved anden udskrift.
Problemmet må være noget med at TPrinter ikke ikke bliver opdagteret, når der er foretaget evt. ændringer i TPrintDialog.

Håber at der er nogen der kan hjælpe med dette.


Hilsen

Finn





If PrintDialog1.Execute then begin
    Line := 20;
    ST := 5;
    SL := 5;
    Printer.Orientation := poLandscape;
    W := Trunc(Printer.Canvas.Font.PixelsPerInch / 25.4);
    With Printer do begin
      Canvas.Font.Size := 12;
      Data.Bdplads.First;
      BeginDoc;
      H := Canvas.TextHeight('Test');
      HeaderPrn;
      while not Data.Bdplads.Eof do begin