excel制作的标签批量打印时自动加序号

hzruziniu

绿色心情小天使 发表于 2018-3-28 07:58
代码中如果要指定一台打印机打印，代码如何写？

1. 如果你默认打印机为激光，当打印某表时需用针式打印机
   
2. 可设置以下代码点击按扭时改为针式，打好后又恢复激光
   
3. Sub 在代码中直接写入打印机名()
   
4.       Set net = CreateObject("WScript.Network")
   
5.       net.SetDefaultPrinter "Jolimark FP-570K"
   
6.      ActiveSheet.PrintPreview  '打印预览
   
7.      net.SetDefaultPrinter "HP LaserJet Professional P 1102w"
   
8. End Sub
   
9. 
   
10. Sub 在工作表中引用打印机名()
    
11.      Set net = CreateObject("WScript.Network")
    
12.      net.SetDefaultPrinter Range("L1")
    
13.      ActiveSheet.PrintPreview  '打印预览
    
14.      net.SetDefaultPrinter Range("L2")
    
15. End Sub

复制代码

1249994139

hzruziniu 发表于 2016-10-12 00:29

又学到了，谢谢分享！！！

微笑吧90

姚强 发表于 2016-10-12 18:42
非常感谢，已经完全实现了我的要求，太感谢了。向您学习。同时再请教一个问题，我有如附件一样相同格式的 ...

你好，你们说的那些代码我搞不懂，能帮我看看我的这个文件吗，我每次需要打印几百张，我需要在“g8”单元格有个序列号，麻烦你帮我看看，

微笑吧90

姚强 发表于 2016-10-12 18:42
非常感谢，已经完全实现了我的要求，太感谢了。向您学习。同时再请教一个问题，我有如附件一样相同格式的 ...

按你们那个代码输入后你那模板打印出来U21没有数值哩！