L lqf802 Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-11 #1 程序中直按打印,通常都是打印到默认打印机上的,如何打印到指定的打印机上?
D delhpi Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-11 #2 function GetPrnNameToIndex(PrnName: widestring): Integer; //根据打印机 名称 转换成 序号 begin result := printer.Printers.IndexOf(prnname); end; //设置当前打印机 printer.PrinterIndex := GetPrnNameToIndex(form3.CmbSelectPrn.text); 我的程序里是这样的,打印正常,直接打印,不需要临时选择,你根据情况试试。
function GetPrnNameToIndex(PrnName: widestring): Integer; //根据打印机 名称 转换成 序号 begin result := printer.Printers.IndexOf(prnname); end; //设置当前打印机 printer.PrinterIndex := GetPrnNameToIndex(form3.CmbSelectPrn.text); 我的程序里是这样的,打印正常,直接打印,不需要临时选择,你根据情况试试。
F fei_1 Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-11 #3 楼上的正解,不过我们的做法是将需要用的打印机名设置到注册表里或是INI文件中,打印的时候直接取里面的资料就可以了,也不用选择打印机。
D delhpi Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-11 #4 form3.CmbSelectPrn.text =========== 我的这个值是保存到INI中的,运行时,读取到控件中,打印时,取控件的值。