1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.Button7Click(Sender: TObject);
var
  Bmp : TBitmap;
  WinDC, MemDC : hDC;
  Desktop : hBitmap;
  zx, zy : integer;
begin
  zx := 920;
  zy := 345;
  WinDC := GetDC (GetDeskTopWindow); {Bildschirmkontext holen}
  MemDC := CreateCompatibleDC (WinDC); {Kompatiblen Kontext erstellen}
  Desktop := CreateCompatibleBitmap (WinDC, zx, zy); {Bitmaphandle machen}
  SelectObject (MemDC, Desktop); {selektieren}
  BitBlt (MemDC, 0, 0, zx, zy, WinDC, 170, 275, SRCCOPY); {kopieren}
  DeleteDC (MemDC); {und wech damit}
  ReleaseDC (GetDeskTopWindow, WinDC); {diesen auch}
  bmp := TBitmap.Create;
  try
    bmp.Handle := Desktop;
    //Image1.Picture.Bitmap.Assign(bmp);
  finally
    printer.orientation:=polandscape;
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(RECT(24,72,Printer.PageWidth,Printer.PageHeight), BMP);
    Printer.EndDoc;
    FreeAndNil(bmp);
  end;
end;					

1:

BMP.Assign(Form1.TabSheet4.Brush.Create.Bitmap);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var aPoint : TPoint;
begin
  Printer.beginDoc;
  aPoint := Point(TabSheet2.Left,TabSheet2.Top);
  aPoint := ScreenToClient(Pagecontrol1.ClientToScreen(aPoint));
  Printer.Canvas.CopyRect(Rect(50,50,TabSheet2.Width+50,TabSheet2.Height+50),
                         Canvas,
                         Rect(aPoint.x,aPoint.y,
                              TabSheet2.Width+aPoint.x,
                              TabSheet2.Height+aPoint.y));
   Printer.EndDoc;