V tomto článku vytvoříme makro pro tisk dat z různých listů.
Máme dva nezpracované údaje ve dvou listech a chceme z nich přizpůsobit tisk.
Před spuštěním makra musíme určit požadovaný typ tisku a název, rozsah nebo vlastní zobrazení.
Vytvořili jsme vlastní zobrazení „customView1“.
Logické vysvětlení
Vytvořili jsme makro „PrintReports“ pro přizpůsobený tisk. Toto makro bude smyčkovat od buňky A13 do posledního řádku. Můžeme specifikovat tři různé typy pro přizpůsobený tisk.
U typu 1 musíme v dalším sloupci zadat název listu.
U typu 2 musíme určit rozsah, pro který chceme vytisknout.
U typu 3 musíme zadat název vlastního zobrazení.
Vysvětlení kódu
Pro každou buňku1 v dosahu ("A13", ActiveCell.End (xlDown))
Výše uvedený kód se používá ke smyčce od buňky A13 po poslední řádek.
DefinedName = ActiveCell.Offset (0, 1) .Hodnota
Výše uvedený kód se používá k získání hodnoty z buňky v dalším sloupci z aktivní buňky.
Vyberte Case Cell1.Value
Případ 1
'Výběr definovaného listu
Tabulky (DefinedName). Vyberte
Případ 2
'Výběr definovaného rozsahu
Odkaz na Application.Goto: = DefinedName
Případ 3
'Výběr definovaného vlastního zobrazení
ActiveWorkbook.CustomViews (DefinedName). Show
Konec Vybrat
Výše uvedený příkaz Select slouží k výběru zadané oblasti na základě typu definovaného uživatelem.
ActiveWindow.SelectedSheets.PrintOut
Výše uvedený kód se používá k tisku vybrané oblasti.
Pro kód prosím postupujte níže
Možnost Explicitní dílčí tiskové sestavy () 'Deklarované proměnné Dim DefinedName jako řetězec Dim Cell1 jako rozsah' Zakázání aktualizací obrazovky Application.ScreenUpdating = False 'Smyčka přes všechny buňky pro každou buňku1 v rozsahu ("A13", ActiveCell.End (xlDown)) listy ("Hlavní"). Aktivujte 'Výběr buňky Cell1. Vyberte' Získávání hodnoty názvu listu nebo definovaného rozsahu DefinedName = ActiveCell.Offset (0, 1). Hodnota Vyberte případ Cell1.Value Case 1 'Výběr definovaných listů listů (DefinedName ). Vyberte případ 2 'Výběr definovaného rozsahu Aplikace. Přejít na odkaz: = Definovaný název Případ 3' Výběr definovaného vlastního zobrazení ActiveWorkbook.CustomViews (DefinedName). Zobrazit Konec Vybrat 'Tisk požadovaných dat ActiveWindow.SelectedSheets.PrintOut Další Application.ScreenUpdating = True End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail