请高手帮修改一个批量打印表格的代码，谢谢！

wyz11618

请高手帮修改一个批量打印表格的代码：

原来的代码是：把sheet1表中第一行的内容分别复制到服务签收单的第一个表中打印，然后把第二行复制过来打印，依次类推，直到打印完为止。

因为是用A4纸来打印，一个表格只打印半页纸，有半页是空白的，比较浪费纸，就想改为一张纸打印两个表格。

即把sheet1表中第一行的内容分别复制到服务签收单的第一个表中，把第二行的内容分别复制到服务签收单的第二个表中，再打印。然后把sheet1表中第三行的内容分别复制到服务签收单的第一个表中，把第四行的内容分别复制到服务签收单的第二个表中，继续打印。依次类推。

似乎还要签加一个判断条件，即sheet1表要打印的行数为奇数时，最后一次只复制一行就行了。

工作需要，如有哪位老师肯帮忙，非常感谢！

cqlpjxx

'你试试
Sub 服务签收单批量打印()
Dim no1 As Integer
Sheets("服务签收单").Select
no1 = 1
no2 = InputBox("请输入打印内容行数：", "对话框", 1)
If no2 = "" Then
   Exit Sub
End If
Do While no1 <= no2
   Range("e1").Value = Sheets("sheet1").Range("a" + Trim(Str(no1 + 1))).Value
   Range("b2").Value = Sheets("sheet1").Range("b" + Trim(Str(no1 + 1))).Value
   Range("d2").Value = Sheets("sheet1").Range("c" + Trim(Str(no1 + 1))).Value
   Range("c5").Value = Sheets("sheet1").Range("d" + Trim(Str(no1 + 1))).Value
   
   Range("e13").Value = Sheets("sheet1").Range("a" + Trim(Str(no1 + 2))).Value
   Range("b14").Value = Sheets("sheet1").Range("b" + Trim(Str(no1 + 2))).Value
   Range("d14").Value = Sheets("sheet1").Range("c" + Trim(Str(no1 + 2))).Value
   Range("c17").Value = Sheets("sheet1").Range("d" + Trim(Str(no1 + 2))).Value
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True   '打印输出
   no1 = no1 + 2
Loop
End Sub

chxw68

修改好了。

3190496160

3190496160

服务签收单批量打印.rar (10.12 KB, 下载次数: 9)

2025-1-13 11:13 上传

点击文件名下载附件

z865593849

批量打印

chengyunpan

参与一下！！！！！！！！