Welcher Drucker ist in Windows eingestellt

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Benutzeravatar
Wolfgang_B
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 484
Registriert: Do, 14. Jun 2007 18:22
Wohnort: 94065 Waldkirchen
Hat sich bedankt: 14 Mal
Danksagung erhalten: 5 Mal

Welcher Drucker ist in Windows eingestellt

Beitrag von Wolfgang_B »

Guten Morgen,
wie kann ich abfragen, welcher Drucker in Windows eingestellt ist?
Beste Grüße
Wolfgang

Mitglied des Deutschsprachigen Xbase-Entwickler e. V.
Mitglied der XUG Osnabrück
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9357
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 101 Mal
Danksagung erhalten: 361 Mal
Kontaktdaten:

Re: Welcher Drucker ist in Windows eingestellt

Beitrag von Tom »

Code: Alles auswählen

oPrinter := XbpPrinter():New()
oPrinter:Create('juhu')
IF Len(oPrinter:List()) = 0
  MsgBox('Keine Drucker installert')
  ELSE
  ? "Standarddrucker: "+oPrinter:devName
ENDIF
Herzlich,
Tom
Benutzeravatar
Wolfgang_B
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 484
Registriert: Do, 14. Jun 2007 18:22
Wohnort: 94065 Waldkirchen
Hat sich bedankt: 14 Mal
Danksagung erhalten: 5 Mal

Re: Welcher Drucker ist in Windows eingestellt

Beitrag von Wolfgang_B »

danke!
Beste Grüße
Wolfgang

Mitglied des Deutschsprachigen Xbase-Entwickler e. V.
Mitglied der XUG Osnabrück
Antworten