Naar ik begrijp uit andere forumberichten ligt dit aan de sectie-overgangen.
Nee dus. Er zit iets fout in je document, en derhalve ook in de onderliggende sjabloon. Wat, kan ik helaas nog niet achterhalen. Om te beginnen heb ik de macro zelf ook nog even opnieuw opgenomen, omdat ik ongetwijfeld een andere printer heb als jij. Daar kwam een bijna identieke macro uit overigens, dus ik ging er in eerste instantie vanuit dat jouw macro bij mij dus wél zou werken. Helaas, pindakaas. Werkte dus óók niet. Jij gaf aan dat hij foutliep bij de regel
.LineNumbering, en dat doet-ie bij mij dus ook. Sterker nog: mijn eigen macro stopt daar dus óók, met dezelfde foutmelding. Nu maak ik er altijd een gewoonte van om bij opgenomen macro's de regels die ik niet nodig heb weg te gooien, en dat zou in dit geval dus ook het beste zijn. Dus ik zet een quootje voor de regel
.LineNumbering en druk op <F8>. Volgende regel, zelfde foutmelding. Kortom: het probleem zit 'm niet in de LineNumbering.
Vervolgens een nieuw document gemaakt, dummy tekst er in, paar secties er in gegooid, oriëntatie liggend en staand gebruikt, en macro weer laten lopen (volledig deze keer). Geen probleem! Ook mijn eigen macro geen probleem. Vervolgens jouw tabellen gekopieerd naar mijn document: geen probleem! Vervolgens dus gaan kijken waar bij jou een probleem zou kunnen zitten, en daar zit ik dus nu nog steeds: ik kan op het eerste gezicht niks vinden. Maar ik vermoed dus dat er ergens in je document iets staat wat de hele handel blokkeert. Overigens is één regel van jouw macro dodelijk voor je indeling:
Code:
With ActiveDocument.PageSetup
.LineNumbering.Active = False
[B][COLOR="#FF0000"] .Orientation = wdOrientPortrait
[/COLOR][/B] .FirstPageTray = 261
.OtherPagesTray = 261
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Hiermee gooi je dus alle liggende secties alsnog om naar staande. Lijkt mij niet de bedoeling! Sowieso kunnen, als ik zo naar de macro kijk, al die regels weg, want die heb je helemaal niet nodig.
Code:
With ActiveDocument.PageSetup
.FirstPageTray = 261
.OtherPagesTray = 261
End With
Zou al genoeg moeten zijn om de trays vast te leggen.
Mijn advies? Begin overnieuw met een leeg document, plak daar alle noodzakelijke teksten opnieuw in (niet met <Ctrl>+<a>,<Ctrl>+<c>,<Ctrl>+<v> want dan ben je net zo ver van huis, maar in blokken dus) en kijk dan wat er gebeurt. Wil je testen met een dummy document, volg dan de volgende stappen:
1. Typ in een leeg document de tekst
=Rand(14,6) en druk op <Enter>. Je krijgt nu dummy tekst.
2. Selecteer een deel van de tekst (een paar alinea's), en ga naar het menu <Pagina-instelling>.
3. Kies bij <Marges>:
Liggend, en bij <Toepassen op>:
Geselecteerde tekst en klik op <OK>
4. Laat je macro lopen. Liefst met <F8>, zodat je kunt zien bij welke regels het goed gaat, en bij welke hij stopt. Als hij stopt, ik denk namelijk van niet
.
Ik probeer de oorzaak nog wel even te achterhalen, maar de kans daarop is niet heel groot. Maar je weet het nooit.