标题中文Word 6.0分页打印功能的改进

　　Sub MAIN
　　EditGoto.Destination="P1"
　　FilePrintPreview 1
　　FilePrint.Range=2，.Type=0，NumCopies=1，.PrintToFile=0，.Collate=1
　　a=-1
　　While a=-1
　　FilePrintPreview 0
　　EditGoTo.Destination="P"
　　FilePrintPreview 1
　　a=MsgBox("“是”则继续打印下页，“否”则退出打印"，"自定义分页打印方式"，36)
　　If a=0 Then Goto exit
　　FilePrint.Range=2，.Type=0，.NumCopies=1，.PrintToFile=0，.Collate=1
　　If SelInfo(1)=SelInfo(4) Then Goto exit
　　Wend
　　exit:
　　FilePrintPreview 0
　　End Sub