VB6在运行时设置打印机方向不适用于某些打印机

Question

我有一个代码在vb6上打印数据报告，我用它来改变打印机的布局或方向，它正在我的最后一台打印机EPSON L210工作我觉得它有IP地址作为端口，但在打印机Epson L120上它是一个网络打印机..当我使用错误处理程序检查错误时，它表示下标超出范围。

Dim obj As PageSet.PrinterControl
Dim mPointer
Set obj = New PrinterControl
mPointer = Screen.MousePointer
Screen.MousePointer = vbHourglass
DoEvents
If vOrientation = 1 Then
    Printer.Orientation = vbPRORLandscape
    obj.ChngOrientationLandscape
Else
    obj.ReSetOrientation 'This resets the printer to portrait.
End If
Screen.MousePointer = mPointer
DoEvents

Answer 1

它现在正在运行，网络应该是您的计算机的名称，因此我添加了本地打印机，因此我可以获得打印机的完全权限并在本地更新驱动程序。