[word-vba] afdrukken van huidige pagina werkt niet

[Verwijderd]

Ik wil vanuit een macro de huidige pagina kunnen afdrukken. Als ik handmatig de huidige pagina afdruk is er niets aan de hand. Als ik dit opneem met een macro en ik voer die macro vervolgens uit werkt het niet, krijg ik gewoon altijd de eerste pagina. Ik heb al diverse zaken geprobeerd, maar het schijnt daadwerkelijk niet op deze manier te kunnen.

Application.PrintOut Range:=wdPrintCurrentPage
ActiveDocument.PrintOut Range:=WdPrintCurrentPage

Ik heb al gezocht naar een workaround maar kom er niet uit.

[Verwijderd]

activedocument.PrintOut range:=wdprintcurrentpage,item:=wdprintdocumentcontent,copies:=1

[Verwijderd]

dat werkt niet, zover was ik al

[Verwijderd]

iemand nog ideeen? Eventueel een workaround? Is eht bijvoorbeeld mogelijk om te bepalen welke pagina de currentpage is? In dat geval kan ik dan wdprintcurrentpage omzeilen.

[Verwijderd]

Verwijderd schreef op 02 november 2004 @ 17:13:
dat werkt niet, zover was ik al

leuk antwoord.

onderstaand werkt bij mij:
ActiveDocument.PrintOut _
Range:=wdPrintCurrentPage, _
Background:=True

als je toch nog de andere methode wil gebruiken, kan je dat met
selection.Information(wdActiveEndPageNumber)

maar misschien was je al zover?

[Verwijderd]

Heretic, excuses als mijn reactie wat bot overkwam. Ik ben op internet inderdaad de regel tegengekomen die jij noemde. Werkt op zich aardig geloof ik. Bedankt in ieder geval.

curpage = Selection.Information(wdActiveEndPageNumber)
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:=(curpage), copies:=(TBcopies.Value)