En af de vigtigste og mest udbredte opgaver, som vi støder på, når vi arbejder med VBA i Excel er at udskrive de nødvendige data. I dag i denne artikel vil jeg vise dig, hvordan du kan udskrive data i Excel VBA med gode eksempler og illustrationer.

Download arbejdsbog til øvelser

Download denne arbejdsbog til træning, så du kan øve dig, mens du læser denne artikel.

Trin til at udskrive data med Excel VBA

Her har jeg et datasæt med Navne, typer , og Priser af nogle bøger fra en boghandel ved navn Martin Bookstore.

I dag skal vi lære, hvordan vi kan udskrive dette datasæt med VBA .

Trin 1: Åbning af VBA-editoren for at udskrive i Excel

Tryk på ALT+F11 på dit tastatur. Det åbner Visual Basic Redaktør.

Læs mere: Sådan indstiller du udskriftsområdet i Excel (5 metoder)

Trin 2: Indsættelse af et nyt modul til udskrivning i Excel

Gå til Indsæt i VBA værktøjslinjen. Klik på Indsæt> Modul for at åbne et nyt modul.

Relateret indhold: Sådan udskriver du gitterlinjer i Excel (2 måder)

Trin 3: Indtastning af VBA-koden til udskrivning i Excel

Et nyt modul ved navn Modul1 åbnes. Indtast følgende VBA kode der.

⧭ VBA-kode:

 Sub VBA_Print() ActiveWorkbook.ActiveSheet.PrintOut copies:=1 End Sub 

⧭ Noter:

• Her vil jeg udskrive det aktive regneark i min projektmappe. Hvis du vil udskrive et andet regneark, skal du skrive regnearkets navn direkte i koden.

Hvis du f.eks. vil udskrive regnearket med navnet Ark1 , bruge:

ActiveWorkbook.Worksheets("Sheet1").PrintOut kopier:=1

• Du kan også udskrive fra en arbejdsbog, der ikke er aktiv. For eksempel for at udskrive Ark1 fra en projektmappe kaldet Arbejdsbog1 , bruge:

Workbook("Workbook1").Worksheets("Sheet1").PrintOut copies:=1

• Her udskriver vi kun én kopi af regnearket. Hvis du ønsker at udskrive mere end én kopi, skal du ændre kopier ejendom i overensstemmelse hermed.
• Hvis du vil udskrive flere regneark og samle dem under udskrivning, er der også en mulighed for dig. PrintOut funktion af VBA har en egenskab kaldet Sortere . indstille det til at være True .

ActiveWorkbook.ActiveSheet.PrintOut copies:=10, Collate:=True

Relateret indhold: Excel VBA: Sådan indstiller du udskriftsområdet dynamisk (7 måder)

Lignende læsninger:

• Excel-knap til at udskrive bestemte ark (med nemme trin)
• Sådan udskrives horisontalt i Excel (4 metoder)
• Udskriv flere Excel-ark til en enkelt PDF-fil med VBA (6 kriterier)
• Udskriv titler i Excel er deaktiveret, hvordan aktiverer du det?
• Sådan udskriver du Excel-ark i A4-størrelse (4 måder)

Trin 4: Kørsel af VBA-koden til udskrivning i Excel

Efter indtastning af VBA kode korrekt, skal du køre Makro ved at klikke på Kør i VBA værktøjslinjen.

Relateret indhold: Excel VBA: Indstil udskriftsområde for flere intervaller (5 eksempler)

Trin 5: Det endelige output: Udskriv med VBA

Hvis du kan skrive koden ned og køre den, vil du se, at regnearket bliver udskrevet på printeren, og at et lille vindue vises som dette.

Relateret indhold: Excel VBA: Udskriv række celler (5 nemme metoder)

Ting at huske

Her har vi brugt PrintOut funktion af VBA Der er en anden funktion i VBA kaldet PrintPreview , der viser en visning af dataene før udskrivning.

Syntaksen for PrintPreview er den samme som funktionen PrintOut funktion, skal du blot bruge PrintPrview i stedet for PrintOut .

ActiveWorkbook.ActiveSheet.PrintPreview

Det viser en forhåndsvisning af dit regneark, før du udskriver det.

Konklusion

Så dette er den metode, hvormed du kan udskrive data fra et Excel-regneark med VBA Hvis du har spørgsmål, er du velkommen til at spørge os, og husk at besøge vores hjemmeside ExcelWIKI for flere indlæg og opdateringer.