Print Documents From Delphi - Print PDF, DOC, XLS, HTML, RTF, DOCX, TXT


本文整理自网络,侵删。

 
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    cboPrinter: TComboBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
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 = form2.cboPrinter.ItemIndex then
  begin
    printCommand := 'print';
    printerInfo := '';
  end
  else
  begin
    printCommand := 'printto';
    Printer.PrinterIndex := form2.cboPrinter.ItemIndex;
    Printer.GetPrinter(Device, Driver, Port, hDeviceMode) ;
    printerInfo := Format('"%s" "%s" "%s"', [Device, Driver, Port]) ;
    form2.memo1.Lines.Add(printerInfo);
  end;

  ShellExecute(Application.Handle, PChar(printCommand), PChar(documentToPrint), PChar(printerInfo), nil, SW_HIDE) ;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
PrintDocument(OpenDialog1.FileName);
end;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
//have available printers in the combo box
//cboPrinter.Items.Assign(printer.Printers);
//pre-select the default / active printer
//cboPrinter.ItemIndex := printer.PrinterIndex;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
cboPrinter.Items := Printer.Printers;
end;

end.

相关阅读 >>

Delphi遍历进程并获取进程路径

Delphi 启动程序隐藏主窗体

Delphi工具之winsight

Delphi twebbrowser 用法

Delphixe5如何获取android手机sim卡串号

Delphi拷贝整个目录(包括子目录)

Delphi 得到cxgrid筛选后的记录数

Delphi 压缩图片算法

Delphi xe2 硬盘序列号

汇编基础寄存器

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...