第一列打完之后自动第二列开始打起

亚裕鑫

小标签.rar (16.55 KB, 下载次数: 14)

2017-4-2 15:18 上传

点击文件名下载附件
哪位高手有空帮我修改一下，我要打印五列六行的标签，修改成第一列打完之后自动第二列开始打起依此类推。

苏子龙

不知所云，提问靠猜

乐乐2006201506

加入绿色部分代码试试（通过设置打印区域和插入分页符实现），打印时一页一张小标签。不知是否符合你的要求。  另外你的有些代码好像有问题。
Private Sub CommandButton1_Click()
For i = 6 To 26 Step 5
    Rows(i).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
For j = 4 To 13 Step 3
    Columns(j).Select
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next j
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$O$29"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .HeaderMargin = Application.InchesToPoints(0.15748031496063)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
    End With
    Application.PrintCommunication = True

Application.ActivePrinter = "实达BP-690KPro 在 LPT1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "实达BP-690KPro 在 LPT3:", Collate:=True

End Sub