Pri ukladaní údajov na hárky programu Excel je dobrým zvykom nastaviť oblasti tlače. V opačnom prípade skončíme s obrovskou úlohou úpravy pozícií stĺpcov. Pomocou makra programu Excel môžete ľahko nastaviť oblasti tlače pre všetky svoje pracovné hárky. Dozvieme sa o tom v tomto článku.
stiahnuť
Ak chcete start softvér používať čo najskôr, potom môžete:
V opačnom prípade si môžete prečítať obsah uvedený nižšie.
Excel tlač - nie je žiadna raketová veda
Mnoho ľudí je frustrovaných pri tlači svojich tabuliek programu Excel, najmä ak sú ich tabuľky príliš široké alebo príliš vysoké na to, aby sa zmestili na jednu stránku. Ak už viete, že sa dokument programu Excel vytlačí, je dobrým zvykom pred pridaním obsahu do neho vytvoriť tabuľky programu Excel. Pomocou možnosti Zmena mierky môžete navrhnúť svoj hárok programu Excel a skontrolovať, ako sa má tlačiť. Konce strán vždy zaistia, aby boli hárky programu Excel vhodné pre tlač.
Poďme pripraviť GUI
Skript je možné kopírovať do nového modulu ľubovoľného zošita programu Excel, pre ktorý je potrebné nastaviť oblasť tlače. Ak však chcete ušetriť čas a úsilie, môžete skript skopírovať do nového zošita s povoleným makrom. Odstráňte z tohto zošita nežiaduce hárky a ponechajte jeden hárok, ktorý možno premenovať na „GUI“. Ako je znázornené na obrázku, vytvorte tlačidlo, ktoré používateľovi umožní prechádzať a vyberať zošit programu Excel.
Nech je to funkčné
Po skopírovaní skriptu do nového modulu pripojte skript „P_fpick“ k tlačidlu „Prechádzať“ a skript „DrawPrin“tArea “by malo byť pripojené k tlačidlu„ Nastaviť oblasť tlače “.
Ako to funguje?
Procedúra „P_fpick“ umožní používateľovi prechádzať a vyberať súbory programu Excel. Skript „DrawPrintArea “prečíta cestu k súboru z hárka„ GUI “a otvorí ho. Pre každý pracovný hárok v otvorenom zošite by skript identifikoval použitý rozsah a potom nastavil oblasť tlače.
Sub DrawPrintArea () Dim v1 As Workbook Dim ab As Workbook Set ab = ThisWorkbook Dim v2 As Worksheet Dim lastRow As Long Set v1 = Workbooks.Open (Range ("D6"). Value) For each v2 In v1.Worksheets v2.PageSetup. PrintArea = v2.UsedRange.Address Ďalej v1.Close True ab.Activate End Sub Sub P_fpick () Dim v_fd ako Office.FileDialog Set v_fd = Application.FileDialog (msoFileDialogFilePicker) S v_fd .AllowMultiSelect = False .Title = "Prosím vyberte Excel. zošit ".Filters.Clear .Filters.Add" Excel "," * .xls * "Ak .Show = True Then Range (" D6 "). Hodnota = .SelectedItems (1) Koniec Ak Koniec Koniec Sub
Dolaďte to
Od tejto chvíle skript číta a spracováva jeden zošit. Grafické používateľské rozhranie môžete upraviť tak, aby používateľom umožňoval zoznam viacerých zošitov. Ako alternatívnu metódu môžete používateľovi povoliť aj prehľadávanie a výber priečinka namiesto zošita programu Excel. Makro musí byť zodpovedajúcim spôsobom upravené, aby bolo možné čítať všetky zošity programu Excel vo vybratom priečinku a podpriečinku. Ak skript nedokáže nastaviť oblasť tlače, existuje veľká pravdepodobnosť poškodenia listu a Excel zotavenie je jediným riešením.
Úvod autora:
Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava slova a výhľadové softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S.
Nechaj odpoveď