Question

word vba 中怎么循环打印

我想打印 3*i 和3*i-1页，总共循环60次。怎么写啊

Answer 1

不需要循环，直接设置份数：
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= wdPrintDocumentContent, Copies:=60, Pages:=Format(3*i) & "," & Format(3*i-1), PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0,PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

追问

哦，这样可以实现打印：2，3，5，6。。。。3*i-1,3*i 范围的 目的吗？

追答

intBottomPg=3*i
For CX=1 to 60
For DX=2 to intBottomPg
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= wdPrintDocumentContent, Copies:=1, Pages:=Format(dx) , PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0,PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Next DX
Next CX

或者

intBgPg=2
intBtmPg=3*i
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= wdPrintDocumentContent, Copies:=1, Pages:=Format(intBgPg) & "-" & Format(intBtmPg)
, PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0,PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0提交回答