Printe til bestemt printer fra VBA

OK, nu har jeg fundet eksempel på at sætte default printer via :
Dim objPrinter As Variant
Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter "nydefaultprinter"

Jeg mangler dog at kunne aflæse hvilken printer der tidligere var default, så jeg kan switche tilbage igen.
/Torben

Hej
I MS-Acces 2003 er typen Printer tilgængelig. Så hvis du alligevel har Assses installeret kan benytte MS-Acces obj 11.0.
mvh oleelo

Dim oldPrin As String
    oldPrin = Application.ActivePrinter
    Application.Dialogs(xlDialogPrinterSetup).Show
    'Skriver ud
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    'kobler den gamle på igen
    Application.ActivePrinter = oldPrin

Koden er til excel

Jeg fandt selv en ren VBA-løsning. Da mit program er til Outlook, og jeg i forvejen har en del objekter defineret synes jeg det er bedre med denne. Den er simpel og virker. Se løsningen på dette link:
http://blog.jtbworld.com/2006/01/get-name-of-default-printer-using-vba.html

I skal dog have tak for indsatsen!

/Torben

Lukket