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

它现在可以工作了，网络应该是您计算机的名称，所以我添加了一台本地打印机，这样我就可以获得打印机的完全权限并在本地更新驱动程序。