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
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;