Hallo,
ich mal wieder.
Nebeninfo: Ich hab mein Druck Problem gelöst. Hab mir selbst ne Drucken Funktion geschrieben jetz gehts so wie ich will. BIS AUF:
Ich will noch n Dialog aufrufen, mit dessen Hilfe man einen Drucker auswählen kann. Das Auflisten Funktioniert wunderbar. Das Auswählen aus der Listbox auch. Aber ich weiss nicht wie ich den ausgewählten Wert an die MainForm zurück geben soll und den Drucker wählen soll.
Bis jetz siehts so aus:
Main.frm:
'Aufruf in Main
drucker.Show
drucker.frm:
Private Sub InstallierteDrucker()
Dim x As Integer
Dim AnzDrucker As Long
List1.Clear
AnzDrucker = Printers.Count
If AnzDrucker = 0 Then
List1.AddItem "Kein Drucker installiert."
Else
For x = 0 To AnzDrucker - 1
List1.AddItem Printers(x).DeviceName
Next
End If
End Sub
Private Sub auflisten\_Click()
InstallierteDrucker
End Sub
Private Sub cmdCancel\_Click()
Me.Hide
End Sub
Private Sub wahl\_Click()
DruckerName = List1.Text
Me.Hide
End Sub
Ich hab schon geguckt. Aber ich find nich so richtig die lösung.
Ich habs auch schon in:
Private Sub wahl\_Click()
Dim DruckerName As Printer
DruckerName = List1.Text
Set Printer = DruckerName
Me.Hide
End Sub
Das er den Drucker für die komplette Application für die Laufzeit als Standard setzt aber da hat er auch rumgeweint.
Dann das nächste ist:
Wie gebe ich dem Drucker die anweisung im Querformat zu drucken?
Ich weiss es steht überall viel zu dem Thema aber ich hab schon geschaut das hilf mir irgendwie nix. Währe nett wenn mir wer das mit der Variablenübergabe von Form2 an Form1 zb mal erklären könnte. Bei Perl wüsst ichs ^^
Hab da aber gerade irgendwie ne denkblokade und raff das nich.
Danke für die hilfe
grüße vom digi
