Mega Code Archive

 
Categories / Delphi / Printing
 

Html nesnesinin yazıcıya gönderilmesi

//Delphi FAQs and TIs uses Printers; procedure TForm1.Button1Click(Sender: TObject); var OldCur: TCursor; begin OldCur := Screen.Cursor; with Printer do begin BeginDoc; HTML1.AutoPrint(handle); Title := HTML1.URL; EndDoc; end; Screen.Cursor := OldCur; end;