Viena iš svarbiausių ir dažniausiai naudojamų užduočių, su kuriomis susiduriame dirbdami su VBA "Excel" programoje yra spausdinti reikiamus duomenis. Šiandien šiame straipsnyje parodysiu, kaip galite spausdinti duomenis "Excel" programoje. VBA su tinkamais pavyzdžiais ir iliustracijomis.

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

Duomenų spausdinimo su "Excel VBA" žingsniai

Čia turiu duomenų rinkinį su Pavadinimai, tipai , ir Kainos kai kurių knygų iš knygyno, vadinamo Martino knygynu.

Šiandien sužinosime, kaip galime spausdinti šį duomenų rinkinį naudodami VBA .

1 veiksmas: VBA redaktoriaus atidarymas, norint spausdinti "Excel

Paspauskite ALT+F11 klaviatūroje. Bus atidarytas "Visual Basic Redaktorius.

Skaityti daugiau: Kaip nustatyti spausdinimo sritį programoje "Excel" (5 metodai)

2 žingsnis: naujo modulio įterpimas spausdinti "Excel" programoje

Eikite į Įdėkite parinktį VBA įrankių juostoje. Spustelėkite Insert> Modulis atidaryti naują modulį.

Susijęs turinys: Kaip "Excel" spausdinti tinklelio linijas (2 būdai)

3 žingsnis: VBA kodo įvedimas, kad spausdintumėte "Excel

Naujas modulis, pavadintas Modulis1 Atsidarys langas. Įveskite šiuos įrašus VBA kodą.

⧭ VBA kodas:

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

⧭ Pastabos:

• Čia noriu spausdinti aktyvųjį darbaknygės darbalapį. Norėdami spausdinti bet kurį kitą darbalapį, įrašykite darbalapio pavadinimą tiesiai į kodą.

Pavyzdžiui, norėdami išspausdinti darbalapį, pavadintą 1 lapas , naudoti:

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

• Taip pat galite spausdinti iš neaktyvaus sąsiuvinio. 1 lapas iš darbo knygos, pavadintos Darbo knyga1 , naudoti:

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

• Čia spausdiname tik vieną darbalapio kopiją. Jei norite spausdinti daugiau nei vieną kopiją, pakeiskite kopijos nuosavybę.
• Jei norite spausdinti kelis darbalapius ir spausdindami juos sugretinti, taip pat yra tokia galimybė. PrintOut funkcija VBA turi savybę, vadinamą Surinkti . Nustatykite, kad jis būtų Tiesa .

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

Susijęs turinys: "Excel VBA": kaip dinamiškai nustatyti spausdinimo sritį (7 būdai)

Panašūs skaitiniai:

• "Excel" mygtukas konkretiems lapams spausdinti (paprastais žingsniais)
• Kaip "Excel" programoje spausdinti horizontaliai (4 metodai)
• Kelių "Excel" lapų spausdinimas į vieną PDF failą naudojant VBA (6 kriterijai)
• "Excel" spausdinti pavadinimus yra išjungtas, kaip jį įjungti?
• Kaip atsispausdinti "Excel" lapą A4 formatu (4 būdai)

4 veiksmas: VBA kodo paleidimas spausdinti "Excel" programoje

Įvedus VBA kodą, paleiskite Makro spustelėdami Paleisti parinktį VBA įrankių juostą.

Susijęs turinys: "Excel VBA": spausdinimo srities nustatymas keliems intervalams (5 pavyzdžiai)

5 veiksmas: galutinis rezultatas: spausdinimas naudojant VBA

Jei pavyks sėkmingai užrašyti kodą ir jį paleisti, darbalapis bus atspausdintas spausdintuve, o nedidelis langas pasirodys taip.

Susijęs turinys: "Excel VBA": spausdinti ląstelių diapazoną (5 paprasti metodai)

Dalykai, kuriuos reikia prisiminti

Čia naudojome PrintOut funkcija VBA . Yra dar viena funkcija VBA vadinamas . PrintPreview , kuriame rodoma duomenų peržiūra prieš spausdinimą.

Sintaksė PrintPreview funkcija yra tokia pati kaip PrintOut funkciją, tiesiog naudokite PrintPrview vietoj PrintOut .

ActiveWorkbook.ActiveSheet.PrintPreview

Prieš spausdinant bus rodoma darbalapio peržiūra.

Išvada

Taigi, tai yra metodas, kuriuo galite spausdinti bet kokius duomenis iš "Excel" darbalapio su VBA . Ar turite klausimų? Drąsiai kreipkitės į mus. Ir nepamirškite apsilankyti mūsų svetainėje ExcelWIKI daugiau pranešimų ir atnaujinimų.