中文Word 6.0分页打印功能的改进

江西   夏  坚
1996-10-18

        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
 
 