Default printer

[wacco]

Hallo,

Is er een manier om tijdelijk de default printer, te veranderen in een printer naar keuze (via een menu) en de printer instellingen aan te passen.
En nadat alles is geprint je deze weer op default zet.
Beide opties Mogen met een knop uitgevoerd zijn, zodat er eerst gekozen wordt voor een andere default printer, en je deze eventueel terug kan plaatsen naar de default printer.
Het gaat dus eigenlijk om een tijdelijke default printer naar keuze

Gr,

 

[Alfred 2]

Als u naar Configuratiescherm gaat dan kunt u een snelkoppeling maken van Printers. Dat staat ook al in het Startmenu dus veel sneller kan het niet zijn. Bovenaan staat "als standaard instellen."

 

[wacco]

@Alfred 2
Dankje voor de reactie, maar het is echt de bedoeling om dit vanuit de applicatie te doen.

gr,

 

[OctaFish]

Dat kan. Je kunt de actieve printer eerst in een variabele zetten, vervolgens een andere printer kiezen, afdrukken en als laatste de originele printer weer instellen als standaardprinter.

 

[wacco]

@Octafish,

Na wat zoekwerk, en combineren ben ik tot de volgende oplossing gekomen.
Het werkt, maar zou jij eens kunnen kijken of het voor verbetering vatbaar is.

gr,

 

[OctaFish]

Er kan weinig anders worden gedaan . Al begrijp ik niet waarom je dit Forms![FRM-printer]..KeuzePrinter steeds afwisselt met Me.KeuzePrinter. Gebruik toch gewoon Me, zóveel makkelijker! En daarnaast staan je variabelen niet optimaal ingesteld (of teveel variabelen) en staat de code om de keuzelijst te laden op een gekke plek. Die zou ik althans bij het laden van het formulier plaatsen, want het lijkt mij niet nodig om elke keer als je de keuzelijst opent de lijst opnieuw in te lezen. Ik zou dus dit doen:

Option Compare Database
Dim pr As Printer, prDef As Printer

Private Sub Form_Load()
    Set prDef = Application.Printer
    With Me
        For Each pr In Printers
            .KeuzePrinter.AddItem pr.DeviceName
        Next pr
        .PrinterText = Printer.DeviceName
    End With
End Sub

Private Sub KnopReset_Click()
    Printer = prDef
    Me.PrinterText = Printer.DeviceName
End Sub

Private Sub KnopSet_Click()
    If Me.KeuzePrinter & "" = vbNullString Then Exit Sub
    Set Printer = Printers(Me.KeuzePrinter.Value)
    With Me
        .PrinterText = Printer.DeviceName
        .KeuzePrinter = ""
    End With
End Sub

 

[wacco]

dankje wel voor het bekijken van de code.
Ik ga jouw verbeteringen doorvoeren.

gr,