Kaip nustatyti, kiek puslapių bus spausdinamas programoje "Excel"

Santrauka

Microsoft Visual Basic for Applications nėra nustatyta kaip nustatyti visas puslapių, kuriuose bus spausdinti darbalapyje. Tačiau galite naudoti ExecuteExcel4Macro metodas naudoti gauti. Document(50) makrokomandos lapo funkcijai grąžinti skaičių puslapių, kurie bus spausdinamas aktyviame darbalapyje.

Daugiau informacijos

Microsoft teikia programavimo pavyzdžiai tik, be nesuteikia jokių aiškių arba numanomų garantijų, įskaitant, bet neapsiribojant, numanomas garantijas dėl perkamumo ir (arba) tinkamumo konkrečiam tikslui. Šiame straipsnyje informacija pateikiama manant, kad esate susipažinę su pateikta programavimo kalba buvo parodytas ir priemones, naudojamas siekiant kurti ir derinti. Microsoft palaikymo profesionalai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų jūsų konkrečius poreikius atitinkančias procedūras.
Jei turite ribotą programavimo patirties, galite susisiekti su "Microsoft" sertifikuotų partnerių ar Microsoft konsultavimo tarnybos. Jei norite gauti daugiau informacijos, apsilankykite toliau "Microsoft" žiniatinklio svetainėse:

"Microsoft" Certified partneriai - https://partner.microsoft.com/global/30000104

"Microsoft" Advisory paslaugų - http://support.microsoft.com/gp/advisoryservice

Jei norite gauti daugiau informacijos apie palaikymo parinktys, kurias galima ir apie tai, kaip susisiekti su "Microsoft", apsilankykite šioje "Microsoft" svetainėje:http://support.microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMSnaudoti šią makrokomandą, * Microsoft Excel failą taip:

1. Sukurkite naują "Microsoft" Excel darbaknygę.
   

2. Pažymėkite sritį a1 A1:J100.
   

3. Įveskite skaičių 1 ir paspauskite CTRL + ENTER. Turėtumėte matyti visų pasirinktų langelių su skaičiumi 1.
   

4. Įterpti Visual Basic makrokomandos modulio.
   

5. Modulyje įrašykite šį kodą:

6. Sub ShowMe()
       MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
           " pages will be printed."
   End Sub
   

7. Vykdyti makrokomandą.

Nuorodos

Papildoma informacija apie Get.Document makrokomandų funkciją galima rasti "Excel" funkcija nuorodų vadove.