如何让特定软件使用指定打印机,而非默认打印机。

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何让特定软件使用指定打印机,而非默认打印机。相关的知识,希望对你有一定的参考价值。

我一台电脑连接2台打烊机,一激光,一针式。针式打发票用,如何能让开发票的软件只往针式打印机上打印?先说明下这个开发票的软件在打印时是不能出选择框的(政府单位开发的破软件)。

你可以在打印时在选项里选择打印机。
不出打印选项你可以通过ctrl+p调出打印项,然后设置用哪个打印机打印。
参考技术A http://support.microsoft.com/kb/166129

delphi如何打印到指定的打印机

参考技术A 一、设置默认打印机,并在相关代码中,将指定打印机设置为-1;
procedure SetPaperHeight(Value:integer); //设置纸张高度-单位:mmvar Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; PDMode : PDEVMODE;begin if Value < 90 then Value := 90; //自定义纸张最小高度127mm if Value > 432 then Value := 432; //自定义纸张最大高度432mm Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode <> 0 then begin pDMode := GlobalLock(hDMode); if pDMode <> nil then begin pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERLENGTH; pDMode^.dmPaperSize := DMPAPER_USER; pDMode^.dmPaperLength := Value * 10; pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL; pDMode^.dmDefaultSource := DMBIN_MANUAL; GlobalUnlock(hDMode); end; end; Printer.PrinterIndex := Printer.PrinterIndex;end;
procedure SetPaperWidth(Value:integer); //设置纸张宽度:单位--mmvar Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; PDMode : PDEVMODE;begin if Value < 100 then Value := 100; //自定义纸张最小宽度76mm if Value > 216 then Value := 216; //自定义纸张最大宽度216mm Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode <> 0 then begin pDMode := GlobalLock(hDMode); if pDMode <> nil then begin pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH; pDMode^.dmPaperSize := DMPAPER_USER; pDMode^.dmPaperWidth := Value * 10; //将毫米单位转换为0.1mm单位 pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL; pDMode^.dmDefaultSource := DMBIN_MANUAL; GlobalUnlock(hDMode); end; end; Printer.PrinterIndex := Printer.PrinterIndex;
Printer.PrinterIndex :=-1;如果设置为为-1,则为系统默认打印机;
end;
二、或者使用打印对话框,代码通过读取用户选择的打印机,进行指定打印机操作。
procedure Tfr_mai1.Button1Click(Sender: TObject);begin PrintDialog1.PrintToFile:=true; PrintDialog1.PrintRange:= prPageNums;
PrintDialog1.Execute;
end;
单击本按钮将会出现一个打印机选择对话框,可供用户选择指定的打印机.本回答被提问者和网友采纳

以上是关于如何让特定软件使用指定打印机,而非默认打印机。的主要内容,如果未能解决你的问题,请参考以下文章

在Delphi 中如何调用printerindex指定打印打印?

虚拟打印机如何打印Text

delphi如何打印到指定的打印机

lodop和c-lodop临时默认打印机同一任务测试

如何使用 .addEventListener 打印出数组的特定项?

打印机添加脚本,不能指定默认端口