kann es sein, dass das Ermitteln des Standarddruckers unter Windows7 nicht mehr wie gewohnt funktioniert?
Diese kleine Beispiel-Funktion aus dem Forum liefert mir unter XP den richtighen Druckernamen, unter Win7 ist das Ergebnis "junk" - habe ich das irgendwann etwas verpasst?
Code: Alles auswählen
MsgBox("Standarddrucker: "+GetDefPrinter())
FUNCTION GetDefPrinter()
LOCAL oDefPrinter, cDevName
oDefPrinter := XbpPrinter():New()
oDefPrinter:Create('junk')
cDevName := oDefPrinter:devName
oDefPrinter:Destroy()
RETURN cDevName