Forfatter
NHKaspersen
Emne: Udskriv til 2 netværksprintere og reset default pr
Jeg har en liste med afdelinger i kolonne A
Et tilhørende nummer i kolonne B
Netværksstien til afdelingens printer i kolonne C
A 10 \\dkcp100\dka50
B 11 \\dkcp100\dkb50
Osv
X \\dkcp200\dkx50
Ud fra en rulleliste vælger jeg en afdeling - A
Valget af A generer via Lopslag et 10 tal i celle aa1
Hvordan laver jeg en macro som printer ud til den valgte
afdeling og Afdeling X
Og derefter reset default printer.
Kurt Kubik
Måske kan dette bruges: http://www.vbforums.com/showthread.php?t=485542
NHKaspersen
Det ser spændende ud - prøve det imorgen når jeg er på netværket
På forhånd tak
NHKaspersen
Så har jeg fundet en løsning der fungerer
SLPR = Range("aa1").Value
If SLPR = "10" Then
Application.ActivePrinter = "\\dkcp100\dka50 på Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\dkcp100\dka50 på Ne01:"",,TRUE,,FALSE)"
End If
If SLPR = "11" Then
Application.ActivePrinter = "\\dkcp100\dkb50 på Ne30:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\ dkcp100\dkb50 på Ne30:"",,TRUE,,FALSE)"
End If
Application.ActivePrinter = "\\dkcp200\dkx50 på Ne22:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\ dkcp200\dkx50 på Ne22:"",,TRUE,,FALSE)"
Range("A3").Select
End Sub
Mangler lige default printer
Evt. startende med
DefPrinter = ActivePrinter
og slutte med
ActivePrinter = DefPrinter End Sub
NHKaspersen
Ovenstående virkede desværre ikke, da Excel arket ligger på en server og forskellige computerer skal bruge det.
Ændre Ne nummeret sig.
Med denne løsning virker:
Dim
Message, Title, Default, MyValue
DefPrinter
= ActivePrinter
SLPR =
Range("aa1").Value
If SLPR =
"10" Then
On Error
Resume Next
For Counter
= 99 To 0 Step -1
Application.ActivePrinter
= "\\ \\dkcp100\dka50 på Ne" & Format(Counter,
"00") & ":"
Next
ExecuteExcel4Macro
_
"PRINT(1,,,1,,,,,,,,2,""
\\ \\dkcp100\dka50 på Ne " & Format(Counter,
"00") & ":"",,TRUE,,FALSE)"
End If
If SLPR = "11" Then
On Error
Resume Next
For Counter
= 99 To 0 Step -1
Application.ActivePrinter
= "\\ \\dkcp100\dkb50 på Ne" & Format(Counter,
"00") & ":"
Next
ExecuteExcel4Macro
_
"PRINT(1,,,1,,,,,,,,2,""
\\ \\dkcp100\dkb50 på Ne " & Format(Counter,
"00") & ":"",,TRUE,,FALSE)"
End If
On Error
Resume Next
For Counter
= 99 To 0 Step -1
Application.ActivePrinter
= "\\ \\dkcp200\dkx50 på Ne" & Format(Counter,
"00") & ":"
Next
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""
\\ \\dkcp200\dkx50 på Ne " & Format(Counter,
"00") & ":"",,TRUE,,FALSE)"
DefPrinter = ActivePrinter
Range("A3").Select
End Sub
Skift forum
-- Vælg forum --
Generelt
Formler
Makro og VBA
Office 365
Udfordringen - med eller uden VBA
Del dine regneark
OFF TOPIC
Forum Generelt
Forum regler, manualer mm.
Ris, ros eller gode idéer.
Forum tilladelser Du kan ikke oprette nye emner i dette forumkan ikke besvare beskeder i dette forumkan ikke slette dine beskeder i dette forumkan ikke redigere dine beskeder i dette forumkan ikke oprette afstemninger i dette forumkan ikke stemme i dette forum
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Udskriv til 2 netværksprintere og reset default pr
Emne funktioner
