![]() Procedure TForm1.btnLoadCitydataClick(Sender: TObject) Ĭanvas.TextOut(((sReportHeader)) div 2, 100, sReportHeader) Ĭanvas.LineTo(Printer.PageWidth-200, 500) Ĭanvas.TextOut(400, 600, ) Ĭanvas.TextOut(1000, 600, ) Ĭanvas.LineTo(Printer.PageWidth-200, 800) įor I := 0 to -1 doĬanvas.TextOut(400, iTop, ) Ĭanvas.TextOut(1000, iTop, ) Ĭanvas.LineTo(Printer.PageWidth-200, iTop) Ĭanvas.TextOut(((sReportHeader)) div 2, iTop + 100, DateToStr(Now)+' - Page:'+IntToStr(PageNumber)) Procedure TForm1.btnLoadEmpdataClick(Sender: TObject) ![]() ![]() RectPage := Rect(0, 0, Printer.PageWidth, Printer.PageHeight) Ĭanvas.TextRect(rectPage, ((sReportHeader)) div 2, Procedure TForm1.btnPrintClick(Sender: TObject)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |