循环打印表格与PDF实例，尚有小问题，请大神帮忙看看如何更改，或者有其他的方法

暮牧

目前已经能实现一起打印了。问题是有的机子配置比较好，有的机子配置比较，配置差的机子调取PDF的时候会出现打印顺序错误。如图，如何实现在不同的机子都能正确的打印，并且时间最短。

1. 
   
2. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
3. 
   
4. 
   
5. Private Sub CommandButton1_Click()
   
6. 
   
7. 
   
8. For n = 1 To 5 Step 1
   
9. 
   
10. Sheets(Array("Sheet1", "Sheet3")).Select
    
11. Sheets("Sheet3").Activate
    
12. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印Sheet1、Sheet2
    
13. ShellExecute 0&, "print", ThisWorkbook.Path & "\1.PDF", vbNullString, vbNullString, 0
    
14. ShellExecute 0&, "print", ThisWorkbook.Path & "\2.PDF", vbNullString, vbNullString, 0
    
15. ShellExecute 0&, "print", ThisWorkbook.Path & "\3.PDF", vbNullString, vbNullString, 0
    
16. ShellExecute 0&, "print", ThisWorkbook.Path & "\4.PDF", vbNullString, vbNullString, 0
    
17. ShellExecute 0&, "print", ThisWorkbook.Path & "\5.PDF", vbNullString, vbNullString, 0
    
18. ShellExecute 0&, "print", ThisWorkbook.Path & "\6.PDF", vbNullString, vbNullString, 0
    
19. Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒,有的机子测试可以有的不行，加载的时间有长有短，如何
    
20. 'MsgBox "我执行了第" & n & "遍"
    
21. Next
    
22. Sheets("Sheet2").Select
    
23. End Sub

复制代码

暮牧

经常看帖，第一次发帖，紧张的等待中~

暮牧

19.Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒，不会要把3秒改为10秒或者更大，有没有比较好的方法，如监测打印机完成该次循环中，然后在NEXT

暮牧

大神，帖子别沉了。

暮牧

召唤大神中……

zopey

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印Sheet1、Sheet2

ShellExecute 0&, "print", ThisWorkbook.Path & "\1.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

ShellExecute 0&, "print", ThisWorkbook.Path & "\2.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

ShellExecute 0&, "print", ThisWorkbook.Path & "\3.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

ShellExecute 0&, "print", ThisWorkbook.Path & "\4.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

ShellExecute 0&, "print", ThisWorkbook.Path & "\5.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

ShellExecute 0&, "print", ThisWorkbook.Path & "\6.PDF", vbNullString, vbNullString, 0
Application.Wait Now + TimeValue("00:00:03") '时间延迟3秒

暮牧

zopey 发表于 2018-9-7 17:38
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印Sheet1、Sheet2

ShellExecute 0& ...

终于有人回复了，太感谢了。


这种方法我也有想过，就是时间有浪费了。
而且如果不怕时间长的话，可以直接在3秒的基础 改成10秒、20秒

暮牧

别沉了。大神还没来，怎么能这么快的沉下去

microyip

http://club.excelhome.net/thread-1433607-1-1.html仅供参考