Druck zu klein mit PaintTo

[Günter Dahlke]

Vielen Dank bitsetter für Deine Antwort.

Mit dem Austausch zu dieser Druckroutine
kommt der Ausdruck in Originalgröße.

[delphi]
{ Jetzt die Seiten drucken }
Printer.BeginDoc;
begin
for I := Start to Stop do
begin
SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
SetWindowExtEx(printer.canvas.handle,
GetDeviceCaps(canvas.handle, LOGPIXELSX),
GetDeviceCaps(canvas.handle, LOGPIXELSY),
Nil);
SetViewportExtEx(printer.canvas.handle,
GetDeviceCaps(printer.canvas.handle, LOGPIXELSX),
GetDeviceCaps(printer.canvas.handle, LOGPIXELSY),
Nil);
PageControl1.Pages[I].PaintTo( printer.canvas.handle, 10, 10 ); // Rand,oben,links
if I <> Stop then Printer.NewPage;
end;
Printer.EndDoc;
end;
end;
end;