Autor Beitrag
ACID
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 53


D7 Pers
BeitragVerfasst: Do 23.06.05 12:47 
Ich habe mit
ausblenden Delphi-Quelltext
1:
Combobox1.Items.Assign(Printer.Printers)					

die verfügbaren drucker in eine CombBox geschrieben.
Nun wähle ich in der ComboBox einen Drucker aus.
Aber was muss ich machen das auch auf dem Drucker gedruckt wird?

In der Hilfe steht
    procedure SetPrinter(ADevice, ADriver, APort: PChar; ADeviceMode: THandle);
    Beschreibung

    Rufen Sie SetPrinter auf, um den aktuellen Drucker zu wechseln.

    ADevice gibt den Gerätenamen des neuen Druckers an. Dies ist der Name, der im Druck-Manager angezeigt wird (z. B. "Epson FX-80"). Es handelt sich nicht um den Modellnamen des Druckers.

    ADriver gibt den Treibernamen des neuen Druckers an (normalerweise 'WINSPOOL').

    APort ist aus Gründen der Abwärtskompatibilität verfügbar. Geben Sie für diesen Parameter einen leeren String an.

    DeviceMode ist das Handle eines Speicherpuffers, der einen DeviceMode-Record enthält, in dem gerätespezifische Initialisierungsdaten für den Gerätetreiber gespeichert sind. Dieses Handle kann abgerufen werden, indem Sie die Funktion GlobalAlloc aufrufen, um den Record zuzuordnen.


Aber wie kann ich die Device, den Treiber und eventuell den Port ermitteln so das ich diese werte auch angeben kann.
smiegel
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 992
Erhaltene Danke: 1

WIN 7
D7 Prof., C#, RAD XE Prof.
BeitragVerfasst: Do 23.06.05 13:48 
Hallo,

nomalerweise müsste Printer.PrinterIndex:=Combobox1.ItemIndex; reichen.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)
ACID Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 53


D7 Pers
BeitragVerfasst: Fr 24.06.05 06:49 
Leider gibt es Printer.Printerindex nicht es hat sonst noch jemand eine Idee?
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6395
Erhaltene Danke: 149

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Fr 24.06.05 06:50 
Hast du die Unit Printers eingebunden?
ACID Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 53


D7 Pers
BeitragVerfasst: Fr 24.06.05 07:43 
Nein nicht die UNIT Printers sondern die UNIT QPrinters, da dieses Programm mit Delphi und mit Kylix Compiliert werden soll ohne das ich es groß umschreiben muss. Ist zwar blöd aber aus Zeitgründen habe ich keine andere wahl.