Macro om 1 pagina 1x compleet en 1x deels te printen

[Will3m]

Goedemorgen.

Ik heb een bestand dat ik regelmatig gebruik om collega's te informeren over een bestelling.
Het bestand bevat echter ook een prijsberekening die niet iedereen aan gaat en daarom wil ik een macro maken waarmee de pagina 2x geprint wordt. 1x compleet en 1x waarbij de prijsberekening weg gelaten wordt.

Ik heb al van alles geprobeerd. Door de berekening in een tekstvak of tabel te zetten en deze onzichtbaar te maken. Bij het printen komt de calculatie echter steeds wel weer te voorschijn.

Wie weet hoe ik dit kan doen?

Alvast bedankt voor jullie hulp!!

 

[gast0660]

Test deze eens
Macro voor volledige pagina

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

Macro voor pagina zonder prijsberekening

Selection.MoveDown Unit:=wdLine, Count:=32, Extend:=wdExtend
    Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

Zorg dat uw cursor bovenaan staat alvorens printopdracht uit te voeren (voor order referentie)

 

[Will3m]

Bedankt Philiep!

Ik heb het zelf nog aangepast dat de cursor voor de 2e keer printen dmv PageUp en Home vanzelf naar de juiste positie gaat.

Het enige risico op deze manier is dat als de ingevulde teksten extra regels nodig hebben dat de "count 32" niet de gehele tekst selecteert.

Maar verder een mooie oplossing!

 

[gast0660]

Bedankt voor de feedback.
Suc6

 

[OctaFish]

Het kan wel wat netter en makkelijker, als je met secties werkt. In dat geval voeg je een doorlopende sectie toe voor het deel dat je wilt afschermen en druk je alleen de eerste sectie af. Hoef je verder ook nergens meer rekening mee te houden. De macro's zijn dan zo:

Sub mcrHelePagina()
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument
End Sub

Sub mcrEersteSectie()
Dim Rng As Range
    Set Rng = Selection.Range.Sections(1).Range
    Rng.Select
    Application.PrintOut Range:=wdPrintSelection
    Rng.Select
End Sub