表格怎么连续打印并保存求教大神指点

蚊子大哥

红色框的变成一个能够连续打印和保存

jinlei2006

1. Sub 打印()
   
2. 
   
3. 
   
4. 
   
5. '拼箱单
   
6. 
   
7. 
   
8. Sheets("拼箱单").Range("a1:l12").Select
   
9. 
   
10. 
    
11. 'ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
    
12. 
    
13. 
    
14. '保存数据
    
15. 
    
16. 
    
17. With Sheets("记录")
    
18. 
    
19. 
    
20. x = .Range("a65536").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号（即写入位置）
    
21. 
    
22. 
    
23. .Cells(x, 1) = Sheets("拼箱单").[g2]  '客户
    
24. 
    
25. 
    
26. .Cells(x, 2) = Sheets("拼箱单").[F6]  '单号1
    
27. 
    
28. 
    
29. .Cells(x, 3) = Sheets("拼箱单").[G6]  '单号2
    
30. 
    
31. 
    
32. .Cells(x, 4) = Sheets("拼箱单").[F7]  '单号3
    
33. 
    
34. 
    
35. .Cells(x, 5) = Sheets("拼箱单").[G7]  '单号4
    
36. 
    
37. .Cells(x, 6) = Sheets("拼箱单").[F8]  '单号5
    
38. 
    
39. .Cells(x, 7) = Sheets("拼箱单").[G8]  '单号6
    
40. 
    
41. .Cells(x, 8) = Sheets("拼箱单").[B12]  '复核员
    
42. 
    
43. .Cells(x, 9) = Sheets("拼箱单").[B10]  '拣货员
    
44. 
    
45. .Cells(x, 10) = Sheets("拼箱单").[b11]  '包装员
    
46. 
    
47. .Cells(x, 11) = Sheets("拼箱单").[d7]  '件数
    
48. 
    
49. .Cells(x, 12) = Sheets("拼箱单").[E10]  '复核时间
    
50. 
    
51. .Cells(x, 13) = Sheets("拼箱单").[B6]  '备注
    
52. 
    
53. 
    
54. End With
    
55. '清除数据（单据编号E2格与有公式的单元格不用清除）
    
56. Range("g2,f6,f7,f8,g6,g7,g8,d7").ClearContents
    
57. s = Range("e2") '收据上的当前序号在E2单元格
    
58. s = Range("e2") + s
    
59. Range("e2") = s
    
60. MsgBox "打印并保存完毕", , "提示"
    
61. End Sub

复制代码

蚊子大哥

jinlei2006 发表于 2023-2-20 12:00

这个不能打印出来呀

chengyunpan

点我头像，看我发的主题，万能套用的批量打印软件。