RSS订阅 | 匿名投稿
您的位置:网站首页 > 打印 > 正文

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

作者:admin 来源: 日期:2018/2/25 14:13:46 人气: 标签:

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.


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料