Unterschiedliche Ausgaben bei Paintbox und Printer.Canvas

[Kathmai]

Hallo Leute,

ich schreibe gerade an einer Komponente und um das Problem in den Griff zu bekommen, diese Daten dann auch ausdrucken zu können habe vorher einen Test mit der Paintbox gemacht.
Ganz Simples...

Über die Paintbox zeichnen klappt - Über Printer.Canvas nicht. Es wird eine gemeinsame Prozedur ( Draw(aCanvas: TCanvas) ) verwendet.
Beim Canvas des Printers erscheinen die "aCanvas.Rectangle" aufrufe nicht.

Sie auch Screenshot... Einer auf dem die Paintbox ist und der andere auf dem PDFFactory teilweise mit dem ausdruck ist. Auf nem HP Tintenstrahler das gleiche wie auf PDFFactory...

Hat jemand ne Ahnung woran das liegen könnte??

Danke im voraus!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); // Button2 - Auf Printer.canvas zeichnen klappt nicht... Nur Text sichtbar!
var
  myRect: TRect;
  w,v: TSize;
  printCanvHandle: HDC;

begin
  if PrintDialog.Execute then
  begin
   Printer.Orientation := poLandscape;

   printer.BeginDoc;
    printCanvHandle := Printer.Canvas.Handle;

    SetMapMode(printCanvHandle, MM_ISOTROPIC); // Gleiches Ergebnis mit MM_ANISOTROPIC
    SetWindowExtEx(printCanvHandle, w.cx, w.cy, nil);  //die Abmessungen des Windows festlegen
    SetViewPortExtEx(printCanvHandle,v.cx, -v.cy,nil); // die Abmessungen des Viewports festlegen

    Draw(Printer.Canvas);

    Printer.EndDoc;
  end;
end;


procedure TForm1.Draw(aCanvas: TCanvas);
 Var TWidth, THeight, Left, i, z: Integer;
     aRect: TRect;

begin
 aCanvas.Font.Name := 'Arial';
 aCanvas.Font.Size := 8;
 TWidth := aCanvas.TextWidth('Sa');
 THeight := aCanvas.TextHeight('Sgq');

 aCanvas.Brush.Color := clWhite;
 aCanvas.Pen.Style := psSolid;
 aCanvas.Pen.Color := clBlack;
 aCanvas.Pen.Width := 2; // Keine Änderungen - auch wenn 1 gewählt...

 i:=0;
 aRect.Left := i;
 aRect.Top  := 0;
 aRect.Height := 150;
 aRect.Width := 100;

 aCanvas.Rectangle( aRect );
 aCanvas.Textout( 2, 2, 'Text');
 i:=100;

for z:= 1 to 31 do
  begin
   aRect.Left := i;
   aRect.Width := TWidth;

   aCanvas.Rectangle( aRect );
   aCanvas.TextOut( aRect.Left+2, 2, Inttostr(z));

   i:=i+TWidth;

  end;

  aCanvas.Rectangle( Bounds(50,200,400,200) ); // Testviereck - untere große in der Paintbox
end;

procedure TForm1.Button1Click(Sender: TObject); // Button1 auf Paintbox zeichnen - klappt..
begin
 Draw(PBox.Canvas);
end;