Delphi打印各类文档

本文整理自网络，侵删。

 ShellExecute(Handle, 'print', PChar('c:/document.doc'), nil, nil, SW_HIDE) ;
 
Drop a TComboBox on a form. Name it "cboPrinter". Set Style to csDropDownLidt
Put the next two lines in the form's OnCreate even handler:
 //have available printers in the combo box  cboPrinter.Items.Assign(printer.Printers);  //pre-select the default / active printer  cboPrinter.ItemIndex := printer.PrinterIndex;  
 
Now, here's the function you can use to print any document type to a specified printer:
 uses shellapi, printers;  procedure PrintDocument(const documentToPrint : string) ; var  printCommand : string; printerInfo : string; Device, Driver, Port: array[0..255] of Char; hDeviceMode: THandle; begin   if Printer.PrinterIndex = cboPrinter.ItemIndex then  begin  printCommand := 'print'; printerInfo := ''; end else begin  printCommand := 'printto'; Printer.PrinterIndex := cboPrinter.ItemIndex; Printer.GetPrinter(Device, Driver, Port, hDeviceMode) ; printerInfo := Format('"%s" "%s" "%s"', [Device, Driver, Port]) ; end;  ShellExecute(Application.Handle, PChar(printCommand), PChar(documentToPrint), PChar(printerInfo), nil, SW_HIDE) ; end; 
 
 

相关阅读 >>

Delphi xe 在andriod程序中获取外置sd卡根目录

Delphi xe 获取wifi 信息

Delphi颜色转换函数

Delphi fmx检测屏幕旋转

Delphi 如何从url提取文件名？

Delphi 调用外部 dll 中的函数(1. 早绑定)

Delphi try 抛出异常消息

Delphi 10.3 断点全部失效

Delphi 将string 转为 array of ansichar

Delphi制作透明窗体

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi打印各类文档