VBA-kod för utskriftsknapp i Excel (5 exempel)

Hugh West

16-10-2023 Makroer & Excel VBA
  • Dela Detta
Hugh West

Om vi kan ställa in en anpassad utskriftsknapp i vårt Excel-arbetsblad kan det vara mycket användarvänligt och tidsbesparande att skriva ut ark. Genom att använda VBA-makros Vi kan enkelt göra det. Så den här artikeln kommer att ge dig 5 enkla makron som du kan använda. VBA kod för utskriftsknappen i Excel.

Ladda ner övningsboken

Du kan ladda ner den kostnadsfria Excel-mallen här och öva på egen hand.

VBA-kod för att skapa en utskriftsknapp.xlsm

5 exempel på hur du använder VBA-kod för utskriftsknappen i Excel

Låt oss först presentera vårt dataset, som representerar några säljarens försäljning i olika länder. Regioner .

1. Använd VBA-kod för att skapa en utskriftsknapp för dialogrutan Skriv ut i Excel

Först skapar vi en Knapp för utskrift och kommer sedan att skriva koder för den.

Steg:

  • Klicka på på följande sätt: Utvecklare >> Infoga >> Knapplåda.

Strax därefter får du en plustecken (+) i din markör .

  • Drag som markör enligt dina önskemål. knappstorlek och efter ett tag, en dialogruta som heter Tilldela makro kommer att öppnas.

  • Ge en namn och Tryck på Ny .

A VBA visas.

  • Skriv sedan in följande koder i den 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Nu gå tillbaka till din ark .

Uppdelning av koden

  • Här har jag skapat en Under förfarande, DialogBox .
  • Därefter användes Dialoger (xlDialogPrint).Visa för att öppna Dialogruta för utskrift .

Knappen skapas.

  • Högerklicka på på den knapp och välj Redigera text från Kontextmeny för att ändra knappens namn.

  • Senare, bara typ namn och Klicka på din mus var som helst utanför knappen .

Tryck sedan bara på Knapp .

Då får du Dialogruta för utskrift Om du vill kan du Skriv ut den nu.

Om du inte har någon Skrivare du kan just nu Spara det som PDF . för vidare användning eller för att Skriv ut senare.

  • Tryck nu på OK .

  • I det här ögonblicket kan du bara ge en namn och tryck på Spara .

Här är den tryckta texten PDF .

Läs mer: Hur man justerar utskriftsinställningar i Excel (8 lämpliga knep)

2. Använd VBA-kod för att skapa en utskriftsknapp för det aktiva bladet

Här använder vi VBA till skriv ut en Aktiv Ark .

Steg:

  • Följ den Första tvåstegsmetoden från det första avsnittet. för att skapa en knapp och Tilldela ett makro .
  • Skriv en Makronamn och tryck på Ny .

Strax därefter kom en VBA öppnas.

  • Därefter skriv till följande koder i- 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • Senare, gå tillbaka till den

Uppdelning av koden

  • Här har jag skapat en Under förfarande, ActiveSheet .
  • Därefter användes Utskrift till Välj aktivt blad och skriv ut den.
  • Nu bara tryck på Knapp .

A dialogruta som heter Spara utskrift som kommer att öppnas.

  • Ge en namn och tryck på Spara .

Då får du den tryckta texten PDF .

Du kan enkelt ändra skrivare om du behöver det.

  • Klicka på på Fil vid sidan av Hem

  • Välj sedan Skriv ut alternativet och Klicka på på den drop-down för att välja en Skrivare .

Läs mer: Hur man skriver ut alla blad i Excel (3 metoder)

3. Tillämpa VBA-kod för att skapa en utskriftsknapp för valda blad i Excel

Om du vill Skriv ut specifik utvalda blad är det också möjligt att använda VBA .

Steg:

  • Följ den Första tvåstegsmetoden från det första avsnittet. för att skapa en knapp och tilldela a makro .
  • Skriv sedan en Makronamn och tryck på Ny .

Strax därefter kom en VBA öppnas.

  • Senare, typ följande koder i- 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Därefter gå tillbaka till din ark .

Uppdelning av koden

  • Här har jag skapat en Under förfarande, SelectedSheets .
  • Därefter användes ActiveWindow till välj blad från aktiv Excel fönster .
  • Därefter användes Utskrift för att skriva ut flera utvalda ark .
  • Nu välja ark och tryck på Knapp för utskrift . Jag valde två ark.

  • Ge en namn för PDF och tryck på Spara .

PDF filen har t wo sidor för två ark .

Läs mer: Hur man skriver ut specifika blad med hjälp av VBA-makro i Excel (4 sätt)

Liknande läsningar:

  • Hur man skriver ut Excel-ark i A4-storlek (4 sätt)
  • Hur du behåller rubriken i Excel när du skriver ut (3 sätt)
  • Excel VBA: Hur du ställer in utskriftsområdet dynamiskt (7 sätt)
  • Hur man skriver ut Excel-ark med linjer (3 enkla sätt)
  • Hur man skriver ut diagram i Excel (5 sätt)

4. Bädda in Excel VBA för att skapa en utskriftsknapp för ett visst ark med valt intervall

Här ska vi göra en Knapp för utskrift till skriv ut a valt område från en Särskilt blad. .

Steg:

  • Följ den Första tvåstegsmetoden från det första avsnittet. för att skapa en knapp och tilldela ett makro.
  • Skriv en Makronamn och tryck på Ny .

Strax därefter kom en VBA öppnas.

  • Därefter skriv till följande koder - 
 Sub SpecificSheetnRange() Med Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub
  • Senare kan du gå tillbaka till ditt blad.

Uppdelning av koden

  • Här har jag skapat en Under förfarande, SpecificSheetnRange .
  • Därefter användes Med uttalande till Välj a specifik
  • Nästa, PrintArea = "B2:D11".PrintOut kommer Välj sortiment från Särskilt blad. och kommer att Skriv ut den.
  • Nu bara tryck på Knapp för utskrift .

  • Ställ in en namn för PDF och tryck på Spara .

Det är den tryckt särskilda blad.

Läs mer: Excel VBA: Ange utskriftsområde för flera områden (5 exempel)

5. Bädda in Excel VBA för att skapa en utskriftsknapp för det aktiva bladet med valt intervall

Du kan också välja ett intervall från aktivt blad och kan göra en Knapp för utskrift till skriv ut den med hjälp av VBA .

Steg:

  • Följ den Första tvåstegsmetoden från det första avsnittet. för att skapa en knapp och tilldela en makro .
  • Senare skriver du en Makronamn och tryck på Ny .

Strax därefter kom en VBA öppnas.

  • I VBA fönster, skriv till följande koder - 
 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub
  • Därefter gå tillbaka till din ark .

Uppdelning av koden

  • Här har jag skapat en Under förfarande, ActiveSheetnRange .
  • Därefter användes Range("B2:D11").PrintOut till Välj a sortiment och tryck.
  • Tryck på Knapp för utskrift .

  • Ge en namn och tryck på Spara .

Då får du tryckt sortiment .

Läs mer: Excel-knapp för att skriva ut specifika blad (med enkla steg)

Slutsats

Jag hoppas att de förfaranden som beskrivs ovan kommer att vara tillräckligt bra för att använda VBA-kod för utskriftsknapp Du får gärna ställa frågor i kommentarsfältet och ge mig feedback.

Tidigare inlägg Hur man hittar ekvationen för en trendlinje i Excel (3 lämpliga sätt)
Nästa inlägg Hur man använder VLOOKUP om cellen innehåller ett ord i text i Excel

Hugh West är en mycket erfaren Excel-tränare och analytiker med över 10 års erfarenhet i branschen. Han har en kandidatexamen i redovisning och ekonomi och en magisterexamen i företagsekonomi. Hugh har en passion för undervisning och har utvecklat ett unikt undervisningssätt som är lätt att följa och förstå. Hans expertkunskap om Excel har hjälpt tusentals studenter och yrkesverksamma över hela världen att förbättra sina färdigheter och utmärka sig i sina karriärer. Genom sin blogg delar Hugh med sig av sin kunskap med världen, och erbjuder gratis Excel-handledning och onlineutbildning för att hjälpa individer och företag att nå sin fulla potential.