Form.Canvas drucken, bitte um Hilfe

**Kostas**

Hallo Zusammen,

ich habe Testweise auf eine Form zwei Buttons und zeichne ein Rechteck auf dem canvas.
Wenn ich form.print aufrufe, wird mir das form gedruckt. Zu sehen sind allerdings nur die
Buttons, jedoch nicht das Rechteck.

Im Forum habe ich so einiges gefunden und habs auch halbwegs geschafft das auch das Rechteck gedruckt wird.
Nur die Abmessungen passen nicht. Vermutlich übergebe ich dem StretchBlt Schrott.
Das eigentliche Ziel sollte sein, das ich die Form auf eine vorgegebene Breite und Höhe in mm auf Papier bringe. Wenn die Form z.b. 200x200 pixel groß ist, möchte ich es auf Papier 80x80mm gedruckt haben.

Kann mir da bitte jemand helfen.

Gruß Kostas

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  Canvas.Pen.Width := 10;

  Canvas.Rectangle(100,100, Form1.ClientWidth-100, Form1.ClientHeight-100);

end;

procedure TForm1.Button2Click(Sender: TObject);

const nExtraSpace = 10;

var nPrtMaxWidth,

    nPrtMaxHeight,

    nPrinterOffsetX,

    nPrinterOffsetY,

    nMarginHorz,

    nMarginVert:integer;

begin

  with Printer do

  begin

    BeginDoc;

    try

      nPrtMaxWidth := GetDeviceCaps(Printer.Handle,HORZRES);

      nPrtMaxHeight := GetDeviceCaps(Printer.Handle,VERTRES);

      nPrinterOffsetX := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX);

      nPrinterOffsetY := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY);

      nMarginHorz := nPrinterOffsetX + nExtraSpace;

      nMarginVert := nPrinterOffsetY + nExtraSpace;

      StretchBlt(Printer.canvas.Handle,

                 nMarginHorz,

                 nMarginVert,

                 nPrtMaxWidth - 2 * nMarginHorz,

                 nPrtMaxHeight - 2 * nMarginVert,

                 Form1.canvas.Handle,

                 Form1.Left,

                 Form1.Top,

                 Form1.Width,

                 Form1.Height,

                 SRCCOPY);

      Form1.PaintTo(Printer.Handle,

                    nMarginHorz,

                    nMarginVert);

    finally

      EndDoc;

    end;{try}

  end;{with}

end;

Form.Canvas drucken, bitte um Hilfe

Form.Canvas drucken, bitte um Hilfe

Forumregeln