standaard printer selecteren

[stefano]

Hoi,

Ik heb een code waarmee ik een dokument afdruk op een printer in het netwerk. Na afdrukken wil ik dat de lokale standaardprinter opnieuw geselecteerd wordt, want nu blijft die netwerkprinter aktief . Kan iemand helpen aub ?

dbv,

stefano

Sub afdrukweegbrug()
    Application.ActivePrinter = "\\svrmid008\PRTMID041 op Ne09:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "\\svrmid008\PRTMID041 op Ne09:", Collate:=True
End Sub

 

[koosl]

Stefano,

werkt dit? Ik kan het nu niet testen.

Sub afdrukweegbrug()
Dim AktievePrinter As String
    AktievePrinter = Application.ActivePrinter
    Application.ActivePrinter = "\\svrmid008\PRTMID041 op Ne09:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "\\svrmid008\PRTMID041 op Ne09:", Collate:=True
    Application.ActivePrinter = AktievePrinter
End Sub

Koosl

 

[stefano]

ik probeer het morgen uit ( op het werk )

dank alvast :thumb:

 

[Joske2000]

Stefano,

Volgens mij doet hij het zo :

    Application.ActivePrinter = "\\svrmid008\PRTMID041 op Ne09:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

Ik denk dat hij zo de standaarprinter gewoon laat staan.

Greetz

Joske

 

[stefano]

Nope,

In beide gevallen blijft hij gaan voor de netwerkprinter en keert excel niet terug naar de standaaardprinter.

:shocked:

 

[snb]

aanpassing van Koos' oplossing

Sub indrukwekkend()
  c0 = Application.ActivePrinter
  ActiveWindow.SelectedSheets.PrintOut ,,,, "\\svrmid008\PRTMID041 op Ne09:"
  Application.ActivePrinter = c0
End Sub

 

[stefano]

en de laatste geeft dan compileerfout

 

[snb]

Vorige code aangepast.
En verwijder option explicit.