[已解决]为什么此段打印代码会自动打印两次

蝶·舞

1. Sub 打印()
   
2. y = Application.Dialogs(8).Show
   
3. If y = True Then
   
4. Sheet1.[p3] = Sheet1.[p3] + 1
   
5. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
6. Else
   
7. End
   
8. End If
   
9. End Sub
   

复制代码

我用这段代码想实现目的是：每打印完当前内容后，编号自动加上1，现在测试下来，运行这个宏，会自动打印两份，请问是那里出了问题？

最佳答案

月排行榜 / 总排行榜

上清宫主

2013-7-19 10:09

把+1下一行干掉就可以了

跳转到最佳答案楼层

w2001pf

你也有不理解的问题？

lyf7276

你的问题，要换个马甲来提问，要不谁敢回答呀？

上清宫主

资深MM浮出水面了

爱疯

Sheet1.[p3] = Sheet1.[p3] + 1


这句想做啥？对这个打印()，有啥要求？

蝶·舞

P3单元格是打印单编号，想实现打印后编号自动加1

上清宫主

把+1下一行干掉就可以了

hwc2ycy

Application.Dialogs(8).Show，这个本身就是打印对话框。
下面再来个PRINTOUT，这不就是第二次打印了么。

hwc2ycy

xlDialogPrint 8 “打印”对话框

爱疯

1. Sub 打印()
   
2.     y = Application.Dialogs(8).Show    '弹出打印对话框，手动决定是否打印
   
3. 
   
4.     If y = True Then
   
5.         '有打印
   
6.         Sheet1.[p3] = Sheet1.[p3] + 1
   
7.         ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True    '（又）自动打印
   
8.     Else
   
9.         '没打印
   
10.         End
    
11.     End If
    
12. End Sub
    
13. 
    
14. 
    
15. Sub 打印2()
    
16.     If Application.Dialogs(8).Show Then
    
17.         Sheet1.[p3] = Sheet1.[p3] + 1
    
18.     End If
    
19. End Sub

复制代码

打印2次的原因是，在第1次打印成功以后，又自动打印了1次。
改写为打印2()，就可以了