如何指定打印到非默认的打印机上? ( 积分: 100 )

  • 主题发起人 主题发起人 lqf802
  • 开始时间 开始时间
L

lqf802

Unregistered / Unconfirmed
GUEST, unregistred user!
程序中直按打印,通常都是打印到默认打印机上的,如何打印到指定的打印机上?
 
function GetPrnNameToIndex(PrnName: widestring): Integer;
//根据打印机 名称 转换成 序号
begin
result := printer.Printers.IndexOf(prnname);
end;

//设置当前打印机
printer.PrinterIndex := GetPrnNameToIndex(form3.CmbSelectPrn.text);
我的程序里是这样的,打印正常,直接打印,不需要临时选择,你根据情况试试。
 
楼上的正解,不过我们的做法是将需要用的打印机名设置到注册表里或是INI文件中,打印的时候直接取里面的资料就可以了,也不用选择打印机。
 
form3.CmbSelectPrn.text
===========
我的这个值是保存到INI中的,运行时,读取到控件中,打印时,取控件的值。
 
后退
顶部