ªð¦^¦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¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD