想制作一个打印小程序。不知道哪里错了，打印不了，望大师们帮助解决！

84474376

IVYQQQQQ

你是什么打印机，一页只打一个标签？如果有多行是“是”，是否要批量打印？

84474376

我想打印的是小卡片，上面有格式的。
打印机是一般的针式打印机，就是打发票的那种LQ630之类的。只能一张一张推送的。最好能设置成更简单的程序。可是我不会

84474376

可以批量打印，可我不会弄呢！

闻启学

你这个是是不是标签打印机

一指禅62

如果逐张卡片打印可以这样

1. Sub 打印卡片()
   
2.     Dim arr, i%, j%
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     Sheet2.Select
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 7) = "是" Then
   
7.             Range("B4") = "'" & arr(i, 2)
   
8.             Range("B5") = "'" & arr(i, 3)
   
9.             Range("B6") = "'" & arr(i, 4)
   
10.             Range("B7") = arr(i, 5)
    
11.             For j = 1 To arr(i, 6)
    
12.                 If MsgBox("是否打印？", vbQuestion + vbYesNo, "打印第 " & j & " 页") = vbYes Then
    
13.                     Range("A4:B7").PrintOut
    
14.                 Else
    
15.                     Exit For
    
16.                 End If
    
17.             Next
    
18.         End If
    
19.     Next
    
20. End Sub

复制代码

一指禅62

对楼主如何方式打印不明确，猜的。供参考

卡片打印.zip (20.08 KB, 下载次数: 14)

2019-12-15 11:32 上传

点击文件名下载附件

谢斯年

@一指禅62
大佬请教下怎么可以不跳窗全部打印呀

一指禅62

谢斯年 发表于 2019-12-15 15:31
@一指禅62
大佬请教下怎么可以不跳窗全部打印呀

1. Sub 打印卡片()
   
2.     Dim arr, i%, j%
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     Sheet2.Select
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 7) = "是" Then
   
7.             Range("B4") = "'" & arr(i, 2)
   
8.             Range("B5") = "'" & arr(i, 3)
   
9.             Range("B6") = "'" & arr(i, 4)
   
10.             Range("B7") = arr(i, 5)
    
11.             Range("A4:B7").PrintOut Copies:=arr(i, 6)
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

84474376

谢谢大师们的帮助！