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控制程序在任务栏显示与隐藏

Delphi nethttpclient1 下载显示进度条

Delphi url 编码的装换

Delphi base64编码/解码及zlib压缩/解压

Delphi getdrivetypea() 查看驱动器类型

Delphi读取和写入utf-8编码格式的文件

屏幕抓取Delphi

Delphi 侧边栏隐藏窗体

Delphi调用createprocess创建进程

Delphi版本号检测判断

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

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