Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na tlačidlo " Štart " , " Všetky programy " a " Microsoft Excel " pre vstup do rozhrania programu Excel . Kliknite na " Developer " pásku a potom na tlačidlo " Zabezpečenie makier " . Skontrolujte " Zakázať všetky makrá s oznámením " a kliknite na " Uložiť " . Teraz ste nastavili makrá v Exceli . 
 2 
 Stlačte " Alt " a " F11 " súčasne začať VBE . Double - kliknite na " Hárok1 " na pravej table vo vašom VBE otvorte okno kód . Vyberte možnosť " list " na možnostiach uvedených rozbaľovacích v okne kóde 
 3 
 Zadajte nasledujúci kód v okne kódu : . 
 
 Sub PrintReport ( ) 
 
 Dim PAGE_NUMBER 
 
 Dim ActiveSh ako zošit 
 
 Dim ShNameView As String 
 
 Set ActiveSh = ActiveSheet 
 
 pre každú bunku v dosahu ( Range ( " b3 " ) , Range ( " b3 " ) . End ( xlDown ) ) 
 
 Sh_view = ActiveCell.Offset ( 0 , 1 ) . Hodnota 
 
 PAGE_NUMBER = ActiveCell.Offset ( 0 , 1 ) . Hodnota 
 
Vyberte Case Cell.Value klipart
 Prípad 1 
 
listy ( ShNameView ) . Vyberte klipart
Case 2 klipart
 aplikácie . Choď Referencie : = ShNameView 
 
 End Select 
 
 ActiveWindow.SeletedSheets.Printout Kópia : = 1 
 
 Ďalšie 
 
 slučky v kóde vedie k tlači pre každú bunku v stĺpci B počnúc B2 . Kód vytlačí len stránky v aktuálnom zošite .