VBA设置打印机和纸张

Sub 连续打印()

rs = Sheets("合计金额").Cells(Rows.Count, 7).End(xlUp).Row

ar = Sheets("合计金额").Range("g1:g" &rs)

For i = 2 To UBound(ar)

    If Trim(ar(i, 1)) <>"" Then

        With Sheets("表单列印")

            .[j6] = ar(i, 1)

            .PrintOut Copies:=1, Collate:=True, ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"

        End With

    End If

Next i

End Sub

说明：每个机器定义的打印机和尺寸都不一样的，如果要知道如何自己的打印机和纸张，可以用录制新宏的方法，找到自己的打印机和尺寸编号。我公司的打印机设置是这样的：ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"

共享打印机的电脑如果重装系统，那么要重新定义这段程序的打印机设置。

在装有共享打印机的那台电脑里，端口是USB001,之前改为Lpt1,结果打印出错。将端口改回来就好了。每个人的电脑不一样，都要按照实际情况来设置。PaperSize = 124，表明设置的打印纸张格式是【NFCP 窄行连续 240mm 二等分】格式。 

至于为什么端口是Ne03,在注册表中展开路径为[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts]，里面可以看到自己电脑打印机的端口。

VBA 打印设置相关属性及方法

打印设置说明，以下均为默认值。

With ActiveSheet.PageSetup

.PrintTitleRows = ""'工作表打印标题：顶端标题行(R)

.PrintTitleColumns = "" '工作表打印标题：左端标题列(C)

End With

ActiveSheet.PageSetup.PrintArea = ""'工作表打印区域(A)

With ActiveSheet.PageSetup

.LeftHeader = ""'自定义页眉：左(L)

.CenterHeader = "" '页眉/自定义页眉：中(C)

.RightHeader = "" '自定义页眉：右(R)

.LeftFooter = ""'自定义页脚：左(L)

.CenterFooter = "" '页脚/自定义页脚：中(C)

.RightFooter = "" '自定义页脚：右(R)

.LeftMargin = Application.InchesToPoints(0.75) '页边距：左(L)_1.9厘米

.RightMargin = Application.InchesToPoints(0.75) '页边距：右(R)_1.9厘米

.TopMargin = Application.InchesToPoints(1) '页边距：上(T)_2.5厘米

.BottomMargin = Application.InchesToPoints(1) '页边距：下(B)_2.5厘米

.HeaderMargin = Application.InchesToPoints(0.5) '页边距：页眉(A)_1.3厘米

.FooterMargin = Application.InchesToPoints(0.5) '页边距：页脚(F)_1.3厘米

.PrintHeadings = False '工作表打印：行号列标(L)

.PrintGridlines = False '工作表打印：网格线(G)

.PrintComments = xlPrintNoComments '工作表打印批注(M)：无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace

.PrintQuality = 180 '页面打印质量(Q)：180/360点 英寸

.CenterHorizontally = False '页边距居中方式：水平(Z)

.CenterVertically = False '页边距居中方式：垂直(V)

.Orientation = xlPortrait '页面方向：纵向(T) xlPortrait/ 横向 (L)xlLandscape

.Draft = False '工作表打印：按草稿方式(Q)

.PaperSize = xlPaperA4 '页面纸张大小(Z)：A4

.FirstPageNumber = xlAutomatic '页面起始页码：自动

.Order = xlDownThenOver '工作表打印顺序：先列后行(D)/先行后列(V) xlOverThenDown

.BlackAndWhite = False '工作表打印：单色打印(B)

.Zoom = 100 '页面缩放比例：100% 若选择页面缩放比例，则下面两项没有。

.Zoom = False '页面缩放比例：未选择 若选择调整页面则此项必为False，且与下面两项一起出现。

.FitToPagesWide = 1 '页面缩放：调整为1页高

.FitToPagesTall = 1 '页面缩放：调整为1页宽

.PrintErrors = xlPrintErrorsDisplayed '工作表打印错误单元格打印为(E)：显示值/<空白>xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA

EndWith

详情：http://www.cnblogs.com/go-jzg/p/5738169.html

---