ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¶È¦C¦L¨ä¤¤¤@­¶

¶È¦C¦L¨ä¤¤¤@­¶

½Ð°Ý¡A·í§Úªºexcel¸ê®Æ«ö¤u¨ã¦C¤Wªº¦C¦L«á·|¦L¥X¥þ³¡¸ê®Æ¡]«Ü¦h­¶¡^¡A§Ú¦p¦ó³]©w·í§Ú«ö¦C¦L«á¶È¦C¥X²Ä¤@­¶©Î¬O¨ä¤¤¬Y¤@­¶¦Ó¤w¡A¦Ó¤£»Ý¨C¦¸³£¨ì¦C¦Lªº¹ï¸Ü®Ø¤¤¥h³]©w¡H

³]©w¦C¦L½d³ò¡I

TOP

§â¦C¦L½d³ò³]©w¦WºÙ,

TOP

¤£¤j¤F¸Ñ¡I¬O§_¥i¦A»¡©ú²M·¡¤@ÂI¡AÁÂÁ¡I

TOP

¥»©«³Ì«á¥Ñ 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) ©Î¬O­n«ü©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

TOP

¿ï¨ú­n¦C¦L³¡¤À
ÀÉ®×/³]©w¦C¦L½d³ò
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¼ö¤ß«ü±Ð¡A§Ú­n¥h¸Õ¸Õ¬Ý¡I

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD