unit unitSetRavePrinter;
interface
uses
RpDevice, Printers;
procedure SetPrinter(PrinterName: String; Force: boolean = False); overload;
procedure SetPrinter(PrinterIndex: Integer; Force: boolean = False); overload;
implementation
procedure SetPrinter(PrinterIndex: Integer; Force: boolean);
begin
if RPDev <> nil then
begin
try
RPDev.DeviceIndex := PrinterIndex;
RPDev.ResetHandle(Force);
except
end;
end;
end;
procedure SetPrinter(PrinterName: String; Force: boolean);
var
I,
iPrinterIndex: Integer;
begin
iPrinterIndex := -1;
for I := 0 to Printer.Printers.Count - 1 do
begin
if Printer.Printers[I] = PrinterName then
begin
iPrinterIndex := I;
Break;
end;
end;
if iPrinterIndex = -1 then
Exit;
SetPrinter(iPrinterIndex);
end;
end.
直接调用该模块的 SetPrinter()即可。
interface
uses
RpDevice, Printers;
procedure SetPrinter(PrinterName: String; Force: boolean = False); overload;
procedure SetPrinter(PrinterIndex: Integer; Force: boolean = False); overload;
implementation
procedure SetPrinter(PrinterIndex: Integer; Force: boolean);
begin
if RPDev <> nil then
begin
try
RPDev.DeviceIndex := PrinterIndex;
RPDev.ResetHandle(Force);
except
end;
end;
end;
procedure SetPrinter(PrinterName: String; Force: boolean);
var
I,
iPrinterIndex: Integer;
begin
iPrinterIndex := -1;
for I := 0 to Printer.Printers.Count - 1 do
begin
if Printer.Printers[I] = PrinterName then
begin
iPrinterIndex := I;
Break;
end;
end;
if iPrinterIndex = -1 then
Exit;
SetPrinter(iPrinterIndex);
end;
end.
直接调用该模块的 SetPrinter()即可。
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-1204872/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
获取电脑上连接的USB打印机
下一篇：
Delphi制作DLL
请登录后发表评论
登录
全部评论
