---

Har lavet følgende makro med stor hjælp fra Morten Solberg:
Men der opstår desværre en fejl når jeg sætter dokumentbeskyttelsen på
igen - fejl nr. 9118, med teksten "Parameterværdien lå udenfor det
acceptable område" - kan nogen hjælpe!!!!
-------
Sub FilerUdskriv()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Navn "FilerUdskriv", gemt i fritekst.dot udløses med Alt+P
' Makro oprettet 20-05-2003 af Per Vedel Jensen, Foa afdeling 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim MyPrinter As String
MyPrinter = ActivePrinter

'Fejlhåndtering
On Error GoTo FejlBehandling

'Her undersøges hvilket printernr. der printes fra. Hvis printernr er
forskelligt fra 60 skiftes bakker i det aktive dok

If (Mid(MyPrinter$, 20, 2)) <> "60" Then 'det virker
fint!!!

'Her fjernes beskyttelse
ActiveDocument.Unprotect 'det virker
fint!!!

'Her skiftes bakker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterLowerBin 'det virker
fint!!!
.OtherPagesTray = wdPrinterUpperBin 'det virker
fint!!!
End With

'Her settes beskyttelse
ActiveDocument.Protect Password:="", NoReset:=False,
Type:=wdNoProtection 'giver fejl!!!!

'Her udskrives dokumentet
ActiveDocument.PrintOut

'Her nulstilles printerbakkerne
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterUpperBin
.OtherPagesTray = wdPrinterLowerBin
End With

End If

'Fejlhåndtering og normal afslutning
Exit_FejlBehandling:
Exit Sub

'Fejlhåndtering
FejlBehandling:
MsgBox Err.Description
Resume Exit_FejlBehandling

End Sub