VBA drukas paziņojums - Kā izmantot Excel VBA izdrukāšanai? (ar piemēriem)

Satura rādītājs

Kas ir druka VBA Excel?

Drukāšana VBA ir ļoti līdzīga drukāšanai programmā Excel, kad mums ir svarīgi dati excel vai izklājlapās, tad vienīgais veids, kā tos droši saglabāt, ir saglabāt tos pdf formātā vai izdrukāt. Drukāšanai mums ir jāiestata drukas komanda Vispirms VBA pirms tās izmantošanas, ko šī komanda dara, ja dati tiek izdrukāti vai ierakstīti citā failā.

Kas ir druka VBA Excel?

VBA izdruka nav nekas, bet kā parasti, kā mēs drukājam parastajā darblapā, tajā nav atšķirības. Izmantojot Excel VBA kodu, mēs varam izdrukāt visus darblapas datus. Mēs varam izdrukāt darbgrāmatu, diagrammas, norādīto diapazonu utt.

Pēc visa smagā darba, ko esam paveikuši, lai iesniegtu ziņojumu pārvaldniekam, mēs parasti nosūtām e-pastus. Dažos sapulces gadījumos jūsu vadītājam ir nepieciešama pārskatu drukāta kopija. Šādos gadījumos jums ir jāizdrukā izklājlapā esošais pārskats. Viens no iemesliem, kāpēc jūsu vadītājam ir nepieciešams izdrukāt pārskatu, varētu būt ļoti liels pārskats, ko lasīt datorā. Darblapā jums jau jāpārzina pārskatu drukāšana. Šajā rakstā mēs parādīsim, kā drukāt, izmantojot VBA kodēšanu. Izpildiet šo rakstu nākamās 15 minūtes, lai uzzinātu, kā drukāt atskaites VBA.

VBA PrintOut sintakse VBA Excel

Pirms mēs redzam sintaksi, ļaujiet man vispirms to precizēt. Ko mēs drukājam? Mēs drukājam diapazonus, diagrammas, darblapas, darbgrāmatas. Tātad visiem šiem mērķiem ir pieejama metode PrintOut () .

(No): no kuras lapas jāsāk drukāšana. Ja mēs nenorādīsim nevienu vērtību, tas tiks uzskatīts par pirmo lapu.

(Kam): Kādai jābūt pēdējai drukājamai lapai? Ja tas tiek ignorēts, tas tiks izdrukāts līdz pēdējai lapai.

(Kopijas): Cik kopiju nepieciešams izdrukāt.

(Priekšskatījums): Vai pirms drukāšanas vēlaties redzēt drukas priekšskatījumu? Ja jā, arguments ir TRUE, ja ne FALSE.

Piemēri drukāšanai VBA Excel

Tālāk ir sniegti Drukāšanas VBA Excel piemēri.

Ilustrācijas nolūkos esmu izveidojis fiktīvus datus, kā parādīts zemāk esošajā attēlā.

Tagad mums ir jāizdrukā pārskats no A1 līdz D14. Tas ir mans diapazons. Ievadiet diapazonu VBA kodā, lai piekļūtu metodei PrintOut.

Kods:

Apdrukas_piemērs1 () diapazons ("A1: D14") Beigu apakšgrupa

Tagad piekļūstiet metodei PrintOut.

Kods:

Apdrukas_piemērs1 () diapazons ("A1: D14"). Drukāšanas beigu apakšgrupa

Es nepieskaros nevienam no parametriem. Tas ir pietiekami, lai izdrukātu izvēlēto diapazonu. Ja es palaidīšu šo kodu, tas izdrukās diapazonu no šūnas A1 līdz D14.

Izdrukas metodes parametri VBA Excel

Tagad tos pašus datus esmu nokopējis un ielīmējis, lai VBA Excel izmantotu citus PrintOut metodes parametrus.

Kad mēs vēlamies izdrukāt visu lapu, mēs varam atsaukties uz visu lapu kā Active Sheet. Tas aptvers visu tajā esošo lapu.

Kods, lai izdrukātu visu darblapu.

Kods:

Apdrukas_piemērs1 () ActiveSheet.UsedRange.PrintOut 'Tas izdrukās visu izmantoto lokšņu diapazonu. Beigu apakšnodaļa

Kods, lai atsauktos uz lapas nosaukumu .

Kods:

Apdrukāt_piemērs1 () Loksnes ("Ex 1"). UsedRange.PrintOut 'Tas arī izdrukās visu izmantoto lapu diapazonu ar nosaukumu Ex 1. Beigas Sub

Kods, lai izdrukātu visas darbgrāmatas darblapas .

Kods:

Sub Print_Example1 () Worksheets.UsedRange.PrintOut 'Tas arī izdrukās visu darbgrāmatas visu izmantoto diapazonu. Beigu apakšnodaļa

Kods, lai izdrukātu visus darbgrāmatas datus .

Kods:

Sub Print_Example1 () ThisWorkbook.UsedRange.PrintOut 'Tas arī izdrukās visu darbgrāmatas visu izmantoto diapazonu. Beigu apakšnodaļa

Kods, lai drukātu tikai atlasīto apgabalu .

Kods:

Apdrukas_piemērs1 () Selection.PrintOut 'Tas izdrukās tikai atlasīto diapazonu End Sub

Kā izmantot izdrukas metodes parametrus programmā Excel VBA?

Tagad mēs redzēsim, kā izmantot izdrukas metodes parametrus. Kā es teicu, es biju paplašinājis datus, lai izmantotu citas īpašības.

Protams, tas netiks izdrukāts vienā lapā. Atlasiet diapazonu no A1 līdz S29.

Kods:

Sub Print_Example2() Range ("A1:S29") End Sub

Now select the print out method.

Code:

Sub Print_Example2() Range("A1:S29").PrintOut End Sub

The first & second parameters are From & To, what is the starting & ending pages position. By default, it will print all the pages, so I don’t touch this part. Now I want to see the print preview, so I will choose Preview as TRUE.

Code:

Sub Print_Example2() Range("A1:S29").PrintOut Preview:=True End Sub

Now I will run this code. We will see the print preview.

This is coming in 2 pages.

So first, I want to set up the page to come in a single sheet. Use the below code to set up the page to come in one sheet.

Code:

Apdrukas_piemērs2 () ar darblapām ("1. piemērs"). PageSetup .Zoom = False .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlLandscape beidzas ar ActiveSheet.PrintOut priekšskatījums: = True End Sub