Indholdsfortegnelse
Hvis vi kan indstille en brugerdefineret Udskriv-knap i vores Excel-regneark, kan det være meget brugervenligt og tidsbesparende at udskrive ark. Ved at bruge VBA-makroer Så denne artikel vil give dig 5 enkle makroer, som du kan bruge VBA kode til udskriftsknappen i Excel.
Download arbejdsbog til øvelser
Du kan downloade den gratis Excel-skabelon her og øve dig på egen hånd.
VBA-kode til at oprette en udskriftsknap.xlsm5 eksempler på at bruge VBA-kode til udskriftsknappen i Excel
Lad os først blive introduceret til vores datasæt, der repræsenterer nogle sælgerens salg i forskellige Regioner .
1. Brug VBA-kode til at lave en udskriftsknap til udskriftsdialogboksen i Excel
Først opretter vi en Udskriv knap og vil derefter skrive koder til den.
Trin:
- Klik på som følger: Udvikler >> Indsæt >> Knapboks.
Kort tid efter får du en plus-tegn (+) i din markør .
- Træk at markør i henhold til din ønskede knapstørrelse og efter et stykke tid, en dialogboks ved navn Tildel makro vil åbne sig.
- Giv en navn og tryk på Ny .
A VBA vinduet vises.
- Indtast derefter følgende koder i det-
Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub - Nu gå tilbage til din ark .
Opdeling af kode
- Her har jeg oprettet en Under procedure, DialogBox .
- Derefter anvendes Dialoge (xlDialogPrint).Vis for at åbne den Dialogboks til udskrivning .
Knappen er oprettet.
- Højreklik på på den knap og vælg Rediger tekst fra den Kontekstmenu for at ændre knappens navn.
- Senere, bare type navn og klik din mus hvor som helst uden for knappen .
Derefter skal du blot trykke på Knap .
Så får du den Dialogboks til udskrivning . Hvis du vil, kan du Udskriv det nu.
Hvis du ikke har nogen Printer på dette tidspunkt kan du Gem det som PDF . til videre brug eller til Udskriv senere.
- Tryk nu på OK .
- I dette øjeblik skal du blot give et navn og tryk på Gem .
Her er den trykte udgave PDF .
Læs mere: Sådan justeres udskriftsindstillinger i Excel (8 egnede tricks)
2. Brug VBA-kode til at lave en udskriftsknap til det aktive ark
Her bruger vi VBA til print en Aktiv Ark .
Trin:
- Følg den første to-trins fra første afsnit til at oprette den knap og Tildele et makro .
- Skriv en Makronavn og tryk på Ny .
Kort efter blev en VBA vindue åbnes.
- Derefter skriv følgende koder i-
Sub ActiveSheet() ActiveSheet.PrintOut End Sub - Senere, gå tilbage til den
Opdeling af kode
- Her har jeg oprettet en Under procedure, ActiveSheet .
- Derefter anvendes PrintOut til Vælg aktivt ark og print det.
- Nu skal du bare tryk på Knap .
A dialogboks ved navn Gem Udskriv udskrift som vil åbne sig.
- Giv en navn og tryk på Gem .
Derefter får du den trykte PDF .
Du kan nemt ændre den printer hvis du har brug for det.
- Klik på på Fil ved siden af den Hjem
- Vælg derefter Udskriv og og klik på den drop-down for at vælge en Printer .
Læs mere: Sådan udskriver du alle ark i Excel (3 metoder)
3. Anvend VBA-kode til at oprette en udskriftsknap for udvalgte ark i Excel
Hvis du ønsker at Udskriv specifikke udvalgte ark så er det også muligt ved hjælp af VBA .
Trin:
- Følg den første to-trins fra første afsnit til at oprette den knap og tildele a makro .
- Skriv derefter en Makronavn og tryk på Ny .
Kort efter blev en VBA vindue åbnes.
- Senere, type følgende koder i-
Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub Derefter gå tilbage til din ark .
Opdeling af kode
- Her har jeg oprettet en Under procedure, SelectedSheets .
- Derefter anvendes ActiveWindow til vælg ark fra den aktiv Excel vindue .
- Derefter anvendes PrintOut til udskrivning flere udvalgt ark .
- Nu vælge ark og tryk på Udskriv knap . jeg valgte to ark.
- Giv en navn for den PDF og tryk på Gem .
PDF fil har t wo sider for den to ark .
Læs mere: Sådan udskrives specifikke ark ved hjælp af VBA-makro i Excel (4 måder)
Lignende læsninger:
- Sådan udskriver du Excel-ark i A4-størrelse (4 måder)
- Sådan bevarer du overskriften i Excel ved udskrivning (3 måder)
- Excel VBA: Sådan indstiller du udskriftsområdet dynamisk (7 måder)
- Sådan udskriver du Excel-ark med linjer (3 nemme måder)
- Sådan udskriver du grafer i Excel (5 måder)
4. Embed Excel VBA til at oprette en udskriftsknap for et bestemt ark med et udvalgt område
Her vil vi lave en Udskriv knap til print a valgte rækkevidde fra en særligt ark .
Trin:
- Følg den første to-trins fra første afsnit til at oprette den knap og tildeler en makro.
- Skriv en Makronavn og tryk på Ny .
Kort efter blev en VBA vindue åbnes.
- Derefter skriv følgende koder -
Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub - Gå senere tilbage til dit ark.
Opdeling af kode
- Her har jeg oprettet en Under procedure, SpecificSheetnRange .
- Derefter anvendes Med erklæring til Vælg a specifikke
- Næste, PrintArea = "B2:D11".PrintOut vil Vælg rækkevidde fra den særligt ark og vil Udskriv det.
- Nu skal du bare tryk på Udskriv knap .
- Indstil en navn for den PDF og tryk på Gem .
Det er den trykt specifikke ark.
Læs mere: Excel VBA: Indstil udskriftsområde for flere intervaller (5 eksempler)
5. Embed Excel VBA til at oprette en udskriftsknap til det aktive ark med det valgte område
Du kan også vælge et område fra den aktivt ark og kan lave en Udskriv knap til print det ved hjælp af VBA .
Trin:
- Følg den første to-trins fra første afsnit til at oprette den knap og tildele en makro .
- Senere kan du skrive en Makronavn og tryk på Ny .
Kort efter blev en VBA vindue åbnes.
- I den VBA vindue, skriv følgende koder -
Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub - Derefter gå tilbage til din ark .
Opdeling af kode
- Her har jeg oprettet en Under procedure, ActiveSheetnRange .
- Derefter anvendes Range("B2:D11").PrintOut til Vælg a rækkevidde og tryk.
- Tryk på Udskriv knap .
- Giv en navn og tryk på Gem .
Så får du den trykt rækkevidde .
Læs mere: Excel-knap til at udskrive bestemte ark (med nemme trin)
Konklusion
Jeg håber, at de ovenfor beskrevne procedurer vil være gode nok til at bruge VBA-kode til den udskriftsknap I Excel. Du er velkommen til at stille spørgsmål i kommentarfeltet og give mig gerne feedback.
