Question

怎样用VBA语句不让word弹出对话框？

我用word套打毕业证，录制了一个宏，目的是：打印当前页，然后光标自动转到下一页。问题来
我用word套打毕业证，录制了一个宏，目的是：打印当前页，然后光标自动转到下一页。
问题来了：因为套打的需要，word文档右侧页边距很小，导致每次打印都会弹出对话框：“第×页的页边距设于可打印区域之外，是否继续？”，每次都要回车一下。
请问：能否在宏中写出代码，让对话框接受“确定”，从而不让对话框出现？代码如何写？谢谢。

录得的宏代码如下：
Sub dy()'' dy宏'' Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 Application.Browser.NextEnd Sub

word中弹出的对话框如下：
===================================================
下面是加上后的宏语句：
Sub dydqy()
Application.DisplayAlerts = wdAlertsNone
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage
Application.Browser.Next
End Sub
有问题吗？

Answer 1

Application.DisplayAlerts = wdAlertsNone

追问

感谢您的回答。
没有解决问题，还是弹出对话框。

追答

我测试没有问题.
你加的位置不对? 要加在printout语句之前

btw:这种工作何不试试word的邮件合并?

追问

没错，我就是加在了printout语句之前。
我就是用word的邮件合并，生成了所有学生的毕业证打印模板，每页一个人的信息，有多少人就有多少页。