運行時錯誤380「無效的屬性值

我試圖改變打印機大小，但是當我跑我的代碼我運行時錯誤380「無效的屬性值

運行時錯誤380」無效的屬性值

這裏是我的代碼：

If FormIndex > 0 Then 
    Printer.PaperSize = FormIndex 
    Printer.Orientation = vbPRORLandscape 
    Me.PrintForm 
    Printer.EndDoc 
    MsgBox "Check Printer " & Printer.DeviceName, vbInformation, "Done!" 
End If

請我已經運行在另一個機應用相同的代碼的任何建議，這是工作的罰款

來源

2014-02-07 Mohammed Ahsan

上線你會得到錯誤？ – DevelopmentIsMyPassion

您正在使用哪臺打印機？ – DevelopmentIsMyPassion

此時'Printer.PaperSize = FormIndex'我出錯了。 FormIndex的值是146 –

試試這個，讓我知道

With Printer 

    Printer.CurrentX = 1400 
    Printer.CurrentY = 500 
    Printer.Orientation = vbPRORLandscape 
    Me.PrintForm 
    Printer.EndDoc 
    MsgBox "Check Printer " & Printer.DeviceName, vbInformation, "Done!" 
end with

來源

2014-02-07 08:28:24 DevelopmentIsMyPassion

我使用的是EPSON TM-U220，它不支持'Printer.CurrentX = 1400'和'Printer.CurrentY = 500'以及'Printer.PaperSize = FormIndex'你知道這個屬性適用於我當前的打印機 –