- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2010-9-16 23:35 ½s¿è
¦^´_ 1# banff
³oÓ°ÝÃD¥i¥H¬d¸ß WorkSheet ªº PrintOut ¤èªk±o¨ì¸Ñ¨M¤è¦¡:
ActiveSheet.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
©Ò¥H¥i¥Î ActiveSheet.PrintOut(1,1) ¦C¦Lº¶
©Î¬O
Dim PageNum%
PageNum = 5
ActiveSheet.PrintOut(PageNum,PageNum) ¨Ó«ü©w¥u¦C¦L²Ä 5 ¶.
¬Æ¦Ü³s¦C¦L¥÷¼Æ(Copies) ©Î¬On«ü©w¥ÑþÓ¦Lªí¾÷(ActivePrinter)¦L³£¥i¥H.
¥H¤W¬°¥t¥~³]©w«ö¶s±Ò°Ê¦C¦L¥\¯àªº¤è¦¡.
Y¬O·Qª½±µ¨ú¥N¦C¦L«ö¶sªº°Ê§@«h :
'±Ò°Ê Workbook ªº BeforePrint ¨Æ¥ó
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim PageNum%
PageNum = 5
ActiveSheet.PrintOut(PageNum,PageNum)
Cancel = True '³]©w¦C¦L§@·~¤w¸g§¹¦¨,¤£¦A°õ¦æ¦C¦L°Ê§@
End Sub |
|