解决方法:
implementation
uses Printers;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.PrinterIndex := 0;{网络打印机也是要安装在你本地的操作系统中的,直接使用顺
序
试试吧}
Printers.Printer.SetPrinter(’HP1020′,’HP1020′,’LPT1′,0);{打印机名字,驱动,
端口等,
自查,我是用虚拟打印机测试的}
Printers.Printer.BeginDoc;
Printers.Printer.Canvas.TextOut(10,10,’打印这一行字’);
Printers.Printer.EndDoc;
end;
本站文章除注明转载外,均为本站原创或翻译
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/1151.html
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/1151.html