tjekke hvilken printer der er sat til standard returnere det.

fandt ud af det selv

Function GetDefaultPrinter()
' Returns the UNC path to the current default printer
Dim oShell, sRegVal, sDefault
Set oShell = CreateObject("WScript.Shell")
sRegVal = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
sDefault = ""
On Error Resume Next
sDefault = oShell.RegRead(sRegVal)

sDefault = Left(sDefault ,InStr(sDefault, ",") - 1)

On Error Goto 0
GetDefaultPrinter = sDefault
End Function