genes

¦^´_ 2# ML089

¥t¤@­Ópost§Û¨Ó

1. Sub print123() ' ¿ï¨ú¦C¦L
   
2. Dim RNG As Range, address As String
   
3. Set RNG = Application.InputBox("½Ð¿é¤J ¦C¦L½d³ò", "½d³ò", address, , , , , 8)
   
4.     ActiveSheet.PageSetup.PrintArea = RNG.address
   
5.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
   
6.         IgnorePrintAreas:=False
   
7. End Sub

½Æ»s¥N½X