1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Printer.Title:='bla';
  Printer.BeginDoc;
  Printer.Canvas.Draw(0,0,Image1.Picture.Graphic);
  Printer.EndDoc;
end;

procedure TForm1.Button2Click(Sender: TObject); // "bemalt" das image
var i: Byte;
begin
  Image1.Height:= 600;
  for i:= 0 to 120 Do
  Image1.Canvas.Textout(1,i*50,IntToStr(i*50));
end;                    

1:

Printer.Canvas.Draw(0,0,Image1.Picture.Bitmap);                    

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:

procedure TForm1.Drucken1Click(Sender: TObject);
var i, j         : integer;
    Druckgroesse : TRect;
    oW, oH       : integer;
begin  
  printer.orientation := poPortrait;
  printer.BeginDoc;  
  Druckgroesse.Left   := 0;  
  Druckgroesse.Top    := 0;
  Druckgroesse.Right  := GetDeviceCaps(Printer.Canvas.Handle, horzres);
  Druckgroesse.Bottom := GetDeviceCaps(Printer.Canvas.Handle, vertres);
  //i := panel1.ControlCount;

//  for j := 0 to i-1 do begin;
    oW := Image1.Width;
    oH := Image1.Height;


    SetStretchBltMode(printer.Canvas.Handle, HALFTONE);
    StretchBlt(printer.Canvas.Handle, 0, 0, Druckgroesse.Right, Druckgroesse.Bottom,
              Image1.Canvas.Handle, 0, 0, oW, oH, SRCCopy);
    //if j < i-1 then printer.NewPage;
  //end;

  printer.EndDoc;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm.SBtnPrintPictureClick(Sender: TObject);
begin
  Chart1.BackImage:=ImPict.Picture;
  Chart1.Visible:=True;
  Teeprevi.ChartPreview(Form,Chart1);
  Chart1.Visible:=False;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var bmp: TBitmap;
begin 
 Seite1.Picture.Bitmap.SaveToFile('1.bmp');
  try
    bmp:= TBitmap.Create;
    bmp.LoadFromFile('1.bmp');
    with Printer do begin
      BeginDoc;
      Canvas.StretchDraw(Rect(200, 200, PageWidth - 200, PageHeight - 200), bmp);
      EndDoc;
    end;
    bmp.Destroy;
  except
    raise;
  end;
end;