Windows Standarddrucker ermitteln

Hallo,

ich möchte über eine Automation ein Pdf-Dokument ausdrucken.
Dazu muss ich dieser Automation den Dokumentenpfad und den Drucker mitgeben, auf dem es ausgedruckt werden soll.

Den Drucker hole ich mir über die Standard PrinterSeletion, nur wenn dort nichts eingetragen ist, bleibt der Parameter "Drucker" halt schlichtweg leer.

Dann soll der, unter Windows eingetragene, Standard-Drucker genommen werden. Wie kann ich diesen unter Navision ermitteln?

Vielen Dank.

Mfg

vielleicht über die Windows-Umgebungsvariablen?
Befehl lautet hierzu "String := ENVIRON(Name)"

Gruss

Versuch es doch mal mit:

Code:

Name            DataType         Subtype   Length
WshShell        Automation        'Windows Script Host Object Model'.WshShell   
CLEAR(WshShell);
CREATE(WshShell);
SLEEP(5);
RegKey := 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device';


Gruß Tom

Selten den Rechner so spektakulär schlafen gelegt

Da fehlt nicht zufällig noch was?

Ja, da kommt noch was:

Code:

DefaultPrinter := WshShell.RegRead(RegKey);
CLEAR(WshShell);
IF DefaultPrinter <> '' THEN
  DefaultPrinter :=  COPYSTR(DefaultPrinter,1,STRPOS(DefaultPrinter,',')-1);

Name   DataType   Subtype   Length
DefaultPrinter   Text      1024
RegKey   Text      512



Selten den Rechner so spektakulär schlafen gelegt

Sleep ist tatsächlich notwendig, wenn du einen langsamen Rechner hast. Der läuft nämlich auf einen Fehler, wenn die Variable noch nicht aktiv ist!

Da fehlt nicht zufällig noch was?

Das bißchen hättest Du doch auch herausfinden können?

Oder?

Das mag sein, aber fragen ging einfacher ;)

Und wenn´s um einen langsamen Rechner geht, muss ich wohl eher Sleep(20) oder so nehmen ...