|
[bds2006 打印 预览 delphi 2006 字体 font] 在最后的打印中,我走了一点弯路,原因在于一个小问题,font类的控制,因为在delphi中涉及到相当多的font类,这时要加以限定.
最后的代码如下,供自己以后参考:打印响应事件:procedure TWinForm.printdoc_printpage(sender: TObject; e: system.drawing.printing.printpageeventargs);var x,y,rowgap,colgap:integer; abrush:brush; afont:font;begin x:=0; y:=0; rowgap:=25; colgap:=5; afont:=system.Drawing.Font.Create('airal',100); //这里要加以限定,否则如 afont:=Font.Create('airal',100);则始终报错! abrush:=solidbrush.Create(color.black); e.Graphics.DrawString('akjfdjkh',afont,abrush,X,Y);end;//打印调用事件PROCEDURE TWinForm.PRINTER();VAR printdoc:printdocument; printpreview:printpreviewdialog;BEGIN printdoc:=printdocument.Create; INCLUDE(PRINTDOC.PrintPage,PRINTDOC_PRINTPAGE);//将打印响应事件与打印文档挂勾起来 printpreview:=printpreviewdialog.Create; printpreview.Document:=printdoc; printpreview.ShowDialog;end;在需要打印地方直接调用printer()过程就行了.在c#上的源码铺天盖地,但delphi for net 的相关资源就太少了.自己摸索很有点费事. |
