JavaScript 怎么调用指定的打印机来打印

Posted 2023-05-03

                var nt = new ActiveXObject("WScript.Network"); //获取插件
                var oPrinters = nt.EnumPrinterConnections(); //需要编写 ActiveX 控件来获得d打印机列表
                if (oPrinters == null || oPrinters.length == 0)
                
                    alert('当前你的机器暂没安装打印机');
                    return;
                 else
                
                    //alert('当前打印机台数:'+oPrinters.length);
                
                

                for (i = 0; i < oPrinters.length; i += 2)
                

                    var name = oPrinters.Item(i + 1);
                        if (name.indexOf("BTP-2200E") > -1)//判断当前的打印机名称是否是你想要修改的那台
                        
                            nt.SetDefaultPrinter(name);//修改默认打印机
                            break;
                        
                    
                
                //之后就是正常的打印动作了

参考技术A 用lodop插件可以解决火狐兼容问题，也可以满足不弹框 参考技术B 系统默认设置应该有啊。

delphi请问怎么选定指定的打印机打印呢？

有两台打印机要同时打印，但是需要打印的内容不同，所以需要分别打印到LPT1端口和LPT2端口现在就想知道怎么写才能选择一个指定端口的打印机呢？记得有一个选指定端口就行，不需要填写打印机名称驱动的请老师们指点一下怎么做呢？

参考技术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;本回答被提问者和网友采纳