Drucken einer/mehrerer Groupboxen

[sebastian1979]

Vielen Dank shmia,

die procedure funktionert einwandfrei, die Vergrößerung habe ich wie folgt gelöst:

Delphi-Quellcode:

  printer.Orientation := poLandscape;
  printer.BeginDoc;
  SetMapMode(Printer.Canvas.Handle, MM_ISOTROPIC);
  SetWindowExtEx(Printer.Canvas.Handle, 1, 1, nil);
  SetViewportExtEx(Printer.Canvas.Handle, 5, 5, nil); //Zoomfaktor
  PaintControlToCanvas(MHauptmaske.Auftrag, Printer.Canvas, 50, 50);
  if checkbox1.Checked = true then
  PaintControlToCanvas(MHauptmaske.GroupBox1, Printer.Canvas, 50, 70+MHauptmaske.Auftrag.Height);
  Printer.EndDoc;

Danke nochmal.

Gruss,
Sebastian