Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/PrintMisc/Print1.pas

Pascal/Delphi Source File | 1998-03-10 | 185b | 10 lines

procedure TForm1.Print1Click(Sender: TObject);
begin
  Printer.BeginDoc;
  try
    Printer.Canvas.Draw(0, 0, Image1.Picture.Graphic);
  finally
    Printer.EndDoc;
  end;
end;