Question

我继承了将运输标签打印到Zebra s600打印机的代码，虽然代码在Windows XP中运行良好，但我无法弄清楚它在Windows 7中无法运行的原因。

在Windows 7中运行程序时出现以下错误：＆＃34;运行时错误＆＃39; 75＆＃39;路径/文件访问错误＆＃34;

但它在WindowsXP中运行，因此路径没有错误。

编辑：我尝试在可比性模式下运行，同时右键单击并以管理员身份运行程序。仍然无法工作。

Sub PrintLabel()
'**** this sub print a barcode label on the Zebra S600 printer
'**** for the cardboard shipping box.
Dim mySNprinter As String

mySNprinter = GetSetupVariable("TestSnPrinter")

If (mySNprinter = "") Then
    mySNprinter = "\\dc1\bertha"
End If

 Open mySNprinter For Output As #3
    Print #3, "^XA"         'start of data
    Print #3, "^LH20,25"    'home position of label is 5,25
    If optSize(0).Value = True Then
        Print #3, "^FO1,30^A0,N,25,25^FD" & cboLabel.Text & "^FS"    'print MP-1 with the D font
    End If
    If optSize(1).Value = True Then
        Print #3, "^FO1,30^A0,N,35,35^FD" & cboLabel.Text & "^FS"    'print MP-1 with the D font
    End If
    If optSize(2).Value = True Then
        Print #3, "^FO1,30^A0,N,50,50^FD" & cboLabel.Text & "^FS"    'print MP-1 with the D font
    End If
    Print #3, "^XZ"                     'end data
 Close #3

VB6在Windows 7上通过网络打印到Zebra打印机

0 个答案: