Har efterhånden med hjælp fra Morten Solberg løst det meste.
Mangler lige at kunne sætte dokumentbeskyttelsen på igen - 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 se vedhæftet fil
'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
"Hans Kjaergaard" <hans.k2teknik@post5.tele.dk> skrev i en meddelelse
news:mpl8cvgcudm7ugvc028c82g1g1s0bfkmgh@4ax.com...
> On Thu, 15 May 2003 09:49:47 +0200, "Per Vedel Jensen"
> <per_vedel_jensen@yahoo.dk> wrote:
>
> >Hvordan finder man ud af hvilken printer et givet dokument er sat til at
> >blive udskrevet fra i word -
> Man kan teste på hvilken printer man her som udskrivningsprinter (her
> og nu, printeren bliver ikke gemt i dokumenter, kun sideopsætningen
> til brug for udprintningen), og derefter sætte
> udskrivningsoptions/sideopsætning osv.
> Lav en test på det, skriv navnet i en msgbox, husk dog at du skal have
> port navnet med, det er lidt tricky at forklare. Eks: "hp laserjet
> 1200 on LPT1:" vil blive præsenteret som "hp laserjet 1200" i
> msgbox'en.
>
> >alternativt, hvordan finder man ud af hvilket maskinnummer dokumentet er
> >åbnet på???
> Miljøvariablen %COMPUTERNAME% ?
>
> >Problemet skal løses fordi dokumenternes sideopsætning skal ændres
afhængigt
> >af printeren for at udskrive på brevhoved papir.
> >
> >Dokumenterne udskrives med en makro der hedder:
> >
> >Public Sub MAIN()
> > WordBasic.FilePrint
> >End Sub
> >
> >men inden skal jeg have fundet ud af:
> >1 - hvilkenprinter udskrives dokumentet på
> Skulle kunne lade sig gøre.
>
> >2 - ophæve dokument beskyttelsen
> Test på om det er protected, hvis JA = unprotect det
> Du har samme password på alle dokumenter ?
>
> >3 - skifte bakker
> Indspil en macro hvor du gør det, cut alt væk undtagen det omkring
> firstpage og otherpages
>
> Skulle kunne lade sig gøre
> >4 - sætte dokumentbeskyttelse på igen
> protect document "password"
>
> Jeg lavede stunted for 2 uger siden, det er faktisk meget nemt.
> Men jeg har ikke dokumentationen her, derfor er det frit fra
> hukommelsen jeg skriver, vi har jo fri idag.
>
> /Hans