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

[µo°Ý] ¦p¦ó¨Ï¥Î¥¨¶°¨Ó¿ï¨ú¦C¦L½d³ò

¦^´_ 1# lichang
¬Ý¤£¤ÓÀ´¡A§ï¥Î
Dim A as Range,B as Range
set A=range("B1:AA200")
set B = range("B201:AA227")
´N¤£·|º|±¼¶Ü ???

¤U­±·N«ä³£®t¤£¦h
  1. ActiveSheet.PageSetup.PrintArea = A.address & "," & B.address
½Æ»s¥N½X
  1. ActiveSheet.PageSetup.PrintArea = Application.Union(A, B).Address
½Æ»s¥N½X

TOP

¦^´_ 4# lichang
¤£¦Pªº¤u§@ªí³]©w¬O¤À¶}ªº...
Sheet1¥u¯à«ü©wSheet1¤WªºÀx¦s®æ½d³ò
Sheet2ªº½d³ò­n¦bSheet2³]©w...
Sheet2.PageSetup.PrintArea = Sheet2.Range("A1")

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD