EXCEL VBA Error Message '執行階段錯誤'1004':無法設定種類PageSetup的PrintQuality屬性

最近某部門因印表機壞了，重新更換印表機，最先是買了Fuji Xeror P115w，但在run Excel VBA時，出現了'執行階段錯誤'1004':無法設定種類PageSetup的PrintQuality屬性。

最先發現印列到別台印表機都是OK的，並未發生任何錯誤訊息，只有在列印到此台印表機時，才會發生問題，理所當然認為應該是印表機的原因，同事致電去該廠商，廠商也表示某些客戶確實也會發生無法列印的問題，表示只要刪除某一資料夾即可使用，同事也確實按照廠商的指示去刪除資料夾，重新列印還是發生了相同的問題。於是退掉的印表機，想說買一台公司內常用的品牌應該是OK的。於是買了HP LaserJet Pro M12w ，結果還是相同的問題，只好去動Excel VBA的程式。

Q.Excel VBA怎麼進入?

進入偵錯模式~發現錯誤的地方

扒了一下文，發現此行可有可無，所以就給它remark起來，再試....OK了....

以下有關 Printer VBA的相關說明:

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
　　　　.PrintTitleRows = "" '列印標題列
　　　　.PrintTitleColumns = "" '列印標題欄
　　End With
　　ActiveSheet.PageSetup.PrintArea = "" '列印範圍
　　With ActiveSheet.PageSetup
　　　　.LeftHeader = "" '左頁首
　　　　.CenterHeader = "" '中頁首
　　　　.RightHeader = "" '右頁首
　　　　.LeftFooter = "" '左頁尾
　　　　.CenterFooter = "" '中頁尾
　　　　.RightFooter = "" '右頁尾
　　　　.LeftMargin = Application.InchesToPoints(0) '左邊界
　　　　.RightMargin = Application.InchesToPoints(0) '右邊界
　　　　.TopMargin = Application.InchesToPoints(0) '上邊界
　　　　.BottomMargin = Application.InchesToPoints(0) '下邊界
　　　　.HeaderMargin = Application.InchesToPoints(0) '頁面頂端到標題的距離
　　　　.FooterMargin = Application.InchesToPoints(0) '頁尾到頁面底端的距離
　　　　.PrintHeadings = False '列印本頁時同時印出列和欄標題則為 True
　　　　.PrintGridlines = False '如果在頁面上列印儲存格格線則為 True
　　　　.PrintComments = xlPrintNoComments '工作表中註解的列印模式
　　　　.CenterHorizontally = False '水平置中
　　　　.CenterVertically = False '垂直置中
　　　　.Orientation = xlPortrait '橫向列印
　　　　.Draft = False '列印圖形
　　　　.PaperSize = xlPaperA5 '紙張大小
　　　　.FirstPageNumber = xlAutomatic '第一頁頁碼
　　　　.Order = xlDownThenOver '多頁列印時順序
　　　　.BlackAndWhite = False '黑白列印
　　　　.Zoom = 100 '大小縮放比例
　　End With
End Sub