procedure PaintControlToCanvas(control:TControl; Canvas:TCanvas; x,y:Integer);
var
   dest, src : TRect;
begin
   Assert(Assigned(control));
   Assert(Assigned(canvas));
   if control is TWinControl then
      TWinControl(control).PaintTo(Canvas.Handle, x, y)
   else if control is TGraphicControl then
   begin
      src := control.ClientRect;
      dest := src;
      OffsetRect(dest, x, y);
      Canvas.CopyRect(dest, TGraphicControlCracker(control).Canvas, src);
   end
   else
      Assert(False, 'PaintControlToCanvas: Control-Class not supported');
end;

  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(VstKundenListe, Printer.Canvas, 50, 70+VstKundenListe.Height);

   // PaintControlToCanvas(VstKundenListe, Printer.Canvas, 100, 80);
  Printer.EndDoc;