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

¤£¦P¤u§@ªí¦C¦L¤£³sÄò­¶½X

¦^´_ 1# xiongbear
¸Õ¸Õ¬Ý
  1. '¤w¥ÎCtrlÁä¿ï¨ú¤T­Ó¤u§@ªí:°õ¦æ¦C¦L
  2. Option Explicit
  3. Sub Ex()
  4.    Dim Sh As Worksheet
  5.    For Each Sh In ActiveWindow.SelectedSheets '¤u§@¸s²Õ
  6.         Sh.PrintOut
  7.    Next
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD