Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Standart-Drucker über Api ermitteln, wie?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Windows-spezifische Fragen
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
oldirty



Anmeldungsdatum: 04.08.2005
Beiträge: 65

BeitragVerfasst am: 14.12.2005, 19:34    Titel: Standart-Drucker über Api ermitteln, wie? Antworten mit Zitat

Hallo,

habe schon diverse Internetseiten durchsucht, um eine Funktion aus den Apis zu finden, die mir den Namen als String des in Windows eingestellten Standarddruckers zurückgibt.

Leider noch nichts gefunden.

Bitte um Hilfe und Tips.

Danke.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 14.12.2005, 20:37    Titel: Antworten mit Zitat

schon ma übers freigabesystem versucht?
share IPC$ und dadrin print$ oder sowas? Das könnte der Standarddrucker sein, schau doch ma ob du damit was anfangen kannst

/Edit: Oha, grad nochma geschaut, das is nur die freigabe wo man die treiber herbekommt... bringt also wahrscheinlich auch nix..
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 14.12.2005, 23:04    Titel: Antworten mit Zitat

Hallo!

1. http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767
2. http://support.microsoft.com/kb/246772/EN-US/

Die Artikel dürften passen, aber ich bin zu faul zum Durcharbeiten... Ich brauch nen Kaffee... zwinkern

Viele Grüße!
Sebastian
_________________

Der Markt regelt das! | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
oldirty



Anmeldungsdatum: 04.08.2005
Beiträge: 65

BeitragVerfasst am: 15.12.2005, 18:25    Titel: Antworten mit Zitat

Hallo an alle,

habe die Lösung gefunden:
Code:

screen 16
Option Explicit
 
Declare Function apiGetProfileString Lib "kernel32" Alias "GetProfileStringA" _
    (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Declare Function fDefaultPrinter() As String

Function fDefaultPrinter() As String
    Dim strBuffer As String * 254
    Dim lngReturn As Long
    Dim strDefaultPrinter As String
    lngReturn = apiGetProfileString("WINDOWS", "DEVICE", ",,,", strBuffer, Len(strBuffer))
    fDefaultPrinter =Left$(strBuffer, InStr(strBuffer, ",") - 1)
End Function

Print fDefaultPrinter()
sleep
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Windows-spezifische Fragen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz