Реализация команды PrintTo

Советы » Принтеры и Печать » Реализация команды PrintTo

uses

Printers, Shellapi; procedure

TForm1.Button1Click(Sender: TObject); var

Device: array

[0..255] of

Char; Driver: array

[0..255] of

Char; Port: array

[0..255] of

Char; S: string

; hDeviceMode: THandle; documentname: string

; begin

Printer.PrinterIndex := -1; // select a printer, in this case default Printer.GetPrinter(Device, Driver, Port, hDeviceMode); S := Format('"%s" "%s" "%s"', [Device, Driver, Port]); documentname := 'c:anydocument.doc'; ShellExecute(Handle, 'printto', PChar(documentname), PChar(S), nil

, SW_HIDE); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com