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; 
 
 

相关阅读 >>

Delphi2010新功能:tdirectory.getfiles 支持通配符

Delphi 监控文件系统

Delphi 判断文件路径，不存在则建立

Delphi xe 减少程序体积！

Delphi firedac,ado性能测试

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

Delphi捕捉屏幕

Delphi中webbrowser的用法

Delphi 图像分割

Delphi tfdquery提交tfdmemtable修改的数据

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

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