Name des Standarddruckers feststellen

Von Ausgaben mit der Gra-Engine über Generatoren bis zum Export in diversen Formaten

Moderator: Moderatoren

Antworten
xellos
Rookie
Rookie
Beiträge: 19
Registriert: So, 10. Sep 2006 18:57
Wohnort: Maintal

Name des Standarddruckers feststellen

Beitrag von xellos »

Hi,

XbpPrinter:List() gibt bekanntermaßen die Namen aller installierten Druckerobjekte aus. Wie kann ich feststellen, welcher Name dem Standarddrucker zugeordnet ist?

Vielen Dank für Eure Hife

Grüße
Timo
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: Name des Standarddruckers feststellen

Beitrag von Tom »

Code: Alles auswählen

FUNCTION GetDefPrinter()
LOCAL oDefPrinter
oDefPrinter := XbpPrinter():New()
oDefPrinter:Create('junk')
RETURN oDefPrinter:devName
Herzlich,
Tom
Benutzeravatar
Martin Altmann
Foren-Administrator
Foren-Administrator
Beiträge: 16502
Registriert: Fr, 23. Sep 2005 4:58
Wohnort: Berlin
Hat sich bedankt: 111 Mal
Danksagung erhalten: 48 Mal
Kontaktdaten:

Re: Name des Standarddruckers feststellen

Beitrag von Martin Altmann »

Hallo Timo,
wenn Du ein PrinterObjekt anlegst, geschieht das immer mit dem ausgewählten Standarddrucker (so Du nicht explizit einen mitgibst).
So könntest Du dann den Namen Deines PrinterObjektes ermitteln, dann solltest Du den Namen haben.
Nur so eine Idee, gemacht habe ich es selber nicht...

Viele Grüße,
Martin
:grommit:
Webseite mit XB2.NET und ausschließlich statischem Content in Form von HTML-Dateien: https://www.altem.de/
Webseite mit XB2.NET und ausschließlich dynamischem Content in Form von in-memory-HTML: https://meldungen.altem.de/

Mitglied der XUG Osnabrück
Vorsitzender des Deutschsprachige Xbase-Entwickler e. V.
xellos
Rookie
Rookie
Beiträge: 19
Registriert: So, 10. Sep 2006 18:57
Wohnort: Maintal

Re: Name des Standarddruckers feststellen

Beitrag von xellos »

Okay, zuerst create() dann devName, hätte ich eigentlich auch darauf kommen müssen.

Vielen Dank und viele Grüße
Timo
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: Name des Standarddruckers feststellen

Beitrag von Tom »

Meine Funktion zerstört das Objekt (noch) nicht:

Code: Alles auswählen

FUNCTION GetDefPrinter()
LOCAL oDefPrinter, cDevName
oDefPrinter := XbpPrinter():New()
oDefPrinter:Create('junk')
cDevName := oDefPrinter:devName 
oDefPrinter:Destroy()
RETURN cDevName
Herzlich,
Tom
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: Name des Standarddruckers feststellen

Beitrag von Rolf Ramacher »

Hallo Timo,

warum nimmst du nicht XbpPrintDialog() - hier werden alle verfügbaren Drucker angezeigt. Dann kann man den Drucker auswählen
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
xellos
Rookie
Rookie
Beiträge: 19
Registriert: So, 10. Sep 2006 18:57
Wohnort: Maintal

Re: Name des Standarddruckers feststellen

Beitrag von xellos »

Hallo Rolf,

auf den Aufruf des Druckerdialoges soll in diesem Fall verzichtet werden. Ich weiß ja jetzt wie's geht. Trotzdem Danke für Deine Info.

Grüße
Timo
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Name des Standarddruckers feststellen

Beitrag von Wolfgang Ciriack »

Hallo Rolf,
weil das nicht Ziel der Frage war, die Drucker hat er ja schon mit XbpPrinter:List() !
Viele Grüße
Wolfgang
Antworten