home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / PrintMisc / Print1.pas next >
Pascal/Delphi Source File  |  1998-03-10  |  185b  |  10 lines

  1. procedure TForm1.Print1Click(Sender: TObject);
  2. begin
  3.   Printer.BeginDoc;
  4.   try
  5.     Printer.Canvas.Draw(0, 0, Image1.Picture.Graphic);
  6.   finally
  7.     Printer.EndDoc;
  8.   end;
  9. end;
  10.