[VBA] Word doc openen als Afdrukweergave ipv normaal

[neevedr]

Ik heb in Word een sjabloon gemaakt die als hij wordt geopend een venster laat zien waar ik enkelen waarden moet invullen (zoals project naam, blok). Dit gaat goed maar omdat dit verwerkt wordt in de koptekst opent Word het bestand in de normale weergave, ik zou graag willen dat dit in Afdrukweergave wordt geopend omdat ik dat zo gewend ben. Iemand een idee hoe ik dit in VBA kan oplossen. Mijn code is nu:

code:

Private Sub KnpOk_Click()
    ActiveDocument.Bookmarks("Opdracht").Select
    Selection.TypeText Text:=TextBox1.Text
    ActiveDocument.Bookmarks("Begin").Select
    Me.Hide
End Sub

[neevedr]

Zo dus, handig die macro's opnemen.

code:

    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If