指定打印机打印代码修改/求指导下

760636412

求助，送货单指定针式打印机，打印……代码没有报错 ，也可以打印，就是打印的时候，没有指定想要的打印机打印，有时候忘记换过来，直接其它打印机打印了，没有运行指定打印机，求大神，老师指点下以下代码哪里没有写对——指定的打印机是： ，代码如下……




Sub Call送货单打印()
Sheet3.Unprotect ("aa2023") '取消保护
Application.ScreenUpdating = False '停止刷新

Dim n, i

n = Sheets("送货单").Range("A" & Rows.Count).End(xlUp).Row
For i = 8 To 18
    If Sheets("送货单").Cells(i, "E").Value < "0" Then 'E列小于0的进候
       Sheets("送货单").Cells(i, "E").EntireRow.Hidden = True '所在的行隐藏
    End If
Next

Sheets("送货单").Range("$B$1:$K$22").PrintOut Copies:=1, ActivePrinter:="Jolimark FP-620K+", printtofile:=True, Collate:=True

Sheets("送货单").Cells.EntireRow.Hidden = False '取消隐藏

MsgBox "完成"

Range("E4") = ""
Range("C8:H18") = ""
Range("J8:K18") = ""

Application.ScreenUpdating = True '刷新
Sheet3.Protect ("aa2023") '保护
End Sub

760636412

自已顶一下，不要沉，求老师指点……

tanglf188

设置活动打印机就可以了：
Application.ActivePrinter = "Canon Printer on Ne02:"
最好是先保存默认打印机，完毕了再恢复设置

sj15627581616

1. Function Printers() '枚举打印机以及端口
   
2.     Dim Port As String '端口
   
3.     Dim brr()
   
4.     Dim Arr, objRegistry As Object
   
5.     Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
   
6.     objRegistry.EnumValues &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", Arr '枚举打印机信息并将结果输出Arr数组中
   
7.     ReDim brr(0 To UBound(Arr), 0 To 1)
   
8.     For i = 0 To UBound(Arr)
   
9.         objRegistry.GetStringValue &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", Arr(i), Port '接收打印机端口
   
10.         brr(i, 0) = Arr(i)
    
11.         brr(i, 1) = Port
    
12.     Next
    
13.     Printers = brr
    
14. End Function

复制代码

枚举打印机及端口代码，具体如何设置打印机及其样式，当是自己的作业

leeson7502

'选择打印机，点取消退出
            If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
                Exit Sub
            End If

leeson7502

'选择打印机，点取消退出
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
      Exit Sub
End If

leeson7502

1. '选择打印机，点取消退出
   
2. If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
   
3.       Exit Sub
   
4. End If

复制代码