Изјава за штампу ВБА - Како се користи Екцел ВБА за испис? (са примерима)

Преглед садржаја

Шта је Штампање у ВБА Екцелу?

Штампање у ВБА је врло слично штампању у Екцелу, када имамо важне податке у Екцелу или прорачунским таблицама, тада је једини начин да их сачувамо је сачувати у пдф или их одштампати, за штампу морамо поставити команду принт у ВБА прво пре него што га употреби, шта ова наредба ради ако податке штампа или уписује у другу датотеку.

Шта је Штампање у ВБА Екцелу?

ВБА испис није ништа, али као и обично, како штампамо на редовном радном листу, у томе нема разлике. Коришћењем Екцел ВБА кода можемо да одштампамо целокупне податке радног листа. Можемо да одштампамо радну свеску, графиконе, наведени опсег итд.

После свег напорног рада на представљању извештаја менаџеру, обично шаљемо е-пошту. Али у неким случајевима на састанку, вашем менаџеру је потребна штампана копија ваших извештаја. У тим сценаријима морате да одштампате извештај који имате у табели. Један од разлога због којих је вашем менаџеру потребан испис извештаја могао би бити веома велик извештај за читање на рачунару. На радном листу сте сигурно већ били упознати са штампањем извештаја. У овом чланку ћемо вам показати како се штампа помоћу ВБА кодирања. Пратите овај чланак наредних 15 минута да бисте сазнали како да штампате извештаје у ВБА.

Синтакса ВБА ПринтОут у ВБА Екцел

Пре него што видимо синтаксу, дозволите ми да ово прво разјасним. Шта штампамо? Штампамо опсеге, графиконе, радне листове, радне свеске. Дакле, метода ПринтОут () је доступна са свим овим циљевима.

(Од): Од које странице штампања мора да почне. Ако не доставимо никакву вредност, поступаће као са прве странице.

(За): Шта би требало да буде последња страница за штампање? Ако се игнорише, штампаће се до последње странице.

(Копије): Колико копија треба да одштампате.

(Превиев): Да ли желите да видите преглед штампе пре него што наставите са штампањем. Ако је одговор да, ИСТИНА је аргумент, ако није ФАЛСЕ, аргумент је.

Примери штампања у ВБА Екцел-у

Испод су примери штампања у ВБА Екцел-у.

Ради илустрације створио сам лажне податке, као што је приказано на доњој слици.

Сада морамо да одштампамо извештај од А1 до Д14. Ово је мој домет. Унесите опсег у ВБА код да бисте приступили ПринтОут методи.

Шифра:

Суб Принт_Екампле1 () Опсег ("А1: Д14") Крај Суб

Сада приступите методи ПринтОут.

Шифра:

Подопсег Принт_Екампле1 () Опсег ("А1: Д14"). ПринтОут Енд Суб

Не додирујем ниједан параметар. То је довољно за штампање изабраног опсега. Ако покренем овај код, он ће исписати опсег од А1 до Д14 ћелије.

Параметри методе исписа у ВБА Екцел

Сада сам исте податке копирао и налепио да бих користио друге параметре методе ПринтОут у ВБА Екцел.

Када желимо да одштампамо цео лист, можемо га означити као активни лист. Ово ће покрити цео лист у њему.

Шифра за штампање целог радног листа.

Шифра:

Суб Принт_Екампле1 () АцтивеСхеет.УседРанге.ПринтОут 'Ово ће исписати читав опсег употријебљених листова. Енд Суб

Шифра која упућује на назив листа .

Шифра:

Суб Принт_Екампле1 () Схеетс ("Ек 1"). УседРанге.ПринтОут 'Ово ће такође одштампати читав коришћени опсег листа назван Ек 1. Енд Суб

Code to Print all the Worksheets in the Workbook.

Code:

Sub Print_Example1() Worksheets.UsedRange.PrintOut 'This will also print the entire used range of all the sheet in the workbook. End Sub

Code to Print the Entire Workbook Data.

Code:

Sub Print_Example1() ThisWorkbook.UsedRange.PrintOut 'This will also print the entire used range of all the sheet in the workbook. End Sub

Code to Print Only the Selected Area.

Code:

Sub Print_Example1() Selection.PrintOut 'This will print only the selected range End Sub

How to use the Parameters of Print Out Method in Excel VBA?

Now we will see how to use the parameters of the print out method. As I told, I had expanded the data to use other properties.

For sure, this is not going to print in a single sheet. Select the range as A1 to S29.

Code:

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:

Суб Принт_Екампле2 () Са радним листовима ("Пример 1"). ПагеСетуп .Зоом = Фалсе .ФитТоПагесТалл = 2 .ФитТоПагесВиде = 1 .Ориентатион = клЛандсцапе Енд витх АцтивеСхеет.ПринтОут Превиев: = Труе Енд Суб