pagina-einde met vba toevoegen

[Calvijn]

Ikheb een werkblad met een variabel beperkt aantal kolommen. Die moeten op
een landscape a4 horizontaal op een bladzijde passen. Soms moet daardoor da
afdruk tot ongeveer 90 % verkleind worden. Maar als het niet nodig is moet
dat 100% blijven.
Het aantal rijen is onbeperkt, dus verticaal zal er af een toe een pagina
einde ingevoegd moeten worden.
Als ik bij pagina-instelling kies voor aanpassen aan 1 bij 3 pagina's lukt
het mij niet om handmatig of met vba nog pagina-einden in te voegen.
Dat lukt wel handmatig of met VBA als ik bij pagina-instelling kies voor
Verkleinen/vergroten tot 100%. Maar dat wil ik niet want dan komen de
laatstekolommen soms net op een nieuwe pagina.
Hoe krijg ik het voor elkaar dat in ieder geval alle kolommen op een
bladzijde naast elkaar staan, met eventueel een verkleining. En daarnaast met
VBA een pagina-einde waar de gebruiker een cel activeert.
De code die ik nu gebruik is als volgt:
With ActiveSheet.PageSetup
.PrintArea = "$b$3:" & Cells(Rng, 44).Address
.FitToPagesWide = 1
.Orientation = xlLandscape
End With
ActiveSheet.HPageBreaks.Add Before:=ActiveCell

De laatste regel van de code werkt echter niet.
HOE STEL IK HET EEN EN ANDER IN.
Alvast bedankt voor het meedenken.
WL

[Bill Kuunders]

Ik kan me het niet meer herinneren waarom..............
maar waarschijnlijk moet je de woorden, ActiveWindow.selectedSheets
(Sheets not Sheet) gebruiken.
Dat werkte voor mij.

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Groeten vanuit Nieuw Zeeland.
Bill K

"Calvijn" <Cal...@discussions.microsoft.com> wrote in message
news:4F2EE265-A52B-4CDF...@microsoft.com...

[Calvijn]

Dag Bill,
Helaas maakt het geen enkel verschil.
Wat ik vreemd vind is dat het net lijkt of de instellingen die je via
menu=>Bestand=>Paginainstelling instelt, voorrang hebben boven de
instellingen met VBA gedefinieerd.

"Bill Kuunders" schreef:

[Bill Kuunders]

Nou herinner ik het me...

Er moet nog een lijn vooraf

ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

en dan weer terug naar normal view.......
ActiveWindow.View = xlNormalView

Groeten uit Nieuw Zeeland
Bill K

"Calvijn" <Cal...@discussions.microsoft.com> wrote in message

news:845FB3E0-E35F-4D21...@microsoft.com...

[Calvijn]

Dag Bill,
Bedankt voor je aanvulling. Helaas maakt het voor mij geen verschil. Ik
stuur nu de vernieuwde code nog een keer mee. Ik ben bang dat ik iets over
het hoofd zie, want zo moeilijk moet het toch niet zijn om een afdruk zonodig
te laten verkleinen en een paginaeinde invoegen.
Zo ziet de code er nu uit:
ActiveSheet.Unprotect
Rng = Range("B120").End(xlUp).Row
ActiveSheet.ResetAllPageBreaks
ActiveWindow.View = xlPageBreakPreview

With ActiveSheet.PageSetup
.PrintArea = "$b$3:" & Cells(Rng, 44).Address
.FitToPagesWide = 1
.Orientation = xlLandscape
End With

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveSheet.PrintPreview

"Bill Kuunders" schreef:

[Bill Kuunders]

Het ziet er dus naar uit dat je een conflict hebt.
Misschien moet je gewoon een 90% zoom accepteren.
Je moet wel de tweede en derde lijn even omruilen
Zie hieronder voor nog een trial.

ActiveSheet.Unprotect
Rng = Range("B120").End(xlUp).Row

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks

With ActiveSheet.PageSetup
.PrintArea = "$b$3:" & Cells(Rng, 44).Address

.Orientation = xlLandscape
.zoom = 90

End With
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

ActiveWindow.View = xlNormalView
ActiveSheet.PrintPreview

Good Luck
Mischien heeft iemand anders een betere oplossing.
Je kunt altijd hetzelfde probleem even naar de
microsoft.public.excel.programming group sturen.

Groeten vauit NZ
Bill K

"Calvijn" <Cal...@discussions.microsoft.com> wrote in message

news:322351AE-BA29-45AB...@microsoft.com...