VBA Tellen af te drukken pagina's van een werkblad

[Diniz]

Ik krijg het niet voor elkaar om te tellen hoeveel pagina's er afgedrukt gaan worden in een werkblad.

Ik vond dit topic: http://www.helpmij.nl/forum/showthread.php?p=2220027#post2220027

Maar de oplossingen werkten helaas niet voor mij, heb al op diverse manieren wat geprobeerd.

Als ik het bijvoorbeeld op deze manier doe krijg ik een foutmelding:

Private Sub tellen()

Sheets("blad3").Select   
   
dblAantalPagina = ActiveWindow.ActiveDocument.Content.Information(wdActiveEndPageNumber)
MsgBox dblAantalPagina

End Sub

Wat doe ik fout?

 

[Roncancio]

Je wilt VBA van Word gebruiken voor een Excelbestand. Dat gaat niet werken.
Hier zijn 2 codes om in Excel het aantal te printen pagina's te zien.

Met vriendelijke groet,


Roncancio

 

[snb]

In Word:

c0=ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

 

[Diniz]

Je wilt VBA van Word gebruiken voor een Excelbestand. Dat gaat niet werken.
Hier zijn 2 codes om in Excel het aantal te printen pagina's te zien.

Met vriendelijke groet,


Roncancio

Ik vermoedde al zoiets aan de letters "wd" te zien.

Maar jouw link heb ik toegepast en werkt! Mijn dank!

 

[Roncancio]

Graag gedaan.
Gaarne nog de vraag op opgelost zetten. (rechts onderaan op de pagina).
Bvd.

Met vriendelijke groet,


Roncancio