最先發現印列到別台印表機都是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
