Archief - Publisher 2007 - een "teller" op een meermaals af te drukken pagina zetten

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
A

Albireo

Legacy Member
De situatie: een Publisher bestand bestaande uit 1 pagina, in dit geval een zelfklever. Die zelfklever moet meermaals afgedrukt worden, maar op elke afgedrukte zelfklever moet een volgnummer komen (van 1 tot en met het aantal afgedrukte zelfklevers).

Hoe kan je zoiets doen in Publisher?

Ik ken geen kl* van VBA dus verder dan
Code: 
Private WithEvents PubApp As Application

Private Sub PubApp_BeforePrint(ByVal Doc As Document, Cancel As Boolean)
    Dim textBox As Shape
    Set textBox = Doc.Pages(1).Shapes.AddTextbox(pbTextOrientationHorizontal, 15, 15, 100, 100)
    textBox.TextFrame.TextRange.Text = "1"
    
End Sub
ben ik niet geraakt. En je zou die volgnummers bij voorkeur ook al op printpreview moeten zien.
O

Oldskooler

Legacy Member
Kan totaal verkeerd zijn...

Zet er een for loop rond, en vervang die 1 door het tellerke.

FOR ll_index = 1 TO Doc.Pages.Count

Set textBox = Doc.Pages(ll_index ).Shapes.AddTextbox(pbTextOrientationHorizontal, 15, 15, 100, 100)
textBox.TextFrame.TextRange.Text = "ll_index "

NEXT

Syntax is maar gegokt.
A

Albireo

Legacy Member
Daarmee maak je een paginanummering, maar die is altijd 1 vermits er maar 1 pagina is (ook al wordt die 100 keer afgedrutk).

Ik heb het probleem kunnen oplossen op een totaal andere wijze: mail merge. In Excel een kolommetje gemaakt met alle nummers die ik nodig heb en dan een mail merge vanuit Publisher.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan