/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Sætte dokumenbeskyttelse på med VB
Fra :
Per Vedel Jensen
Dato :
20-05-03 14:23
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
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177496
Tips :
31968
Nyheder :
719565
Indlæg :
6408491
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.