auf meine Frage, wie man bei xl97 aus einer Userform in einem xl - AddIn den druckerdialog aufrufen kann, hat Andre zunächst die Lösung präsentiert mit:
hallo björn,
geht so:
Private Sub CommandButton1_Click()
dialogAntw = Application.Dialogs(xlDialogPrinterSetup).Show
UserForm1.TextBox1.Text = "aktiver Drucker: " & Application.ActivePrinter
End Sub
Dafür herzlichen Dank an Andre. Echt klasse! Ich habe schon ein Paar Stunden vergebens mit dem normalen Befehl herumprobiert. Leider kann man über den Dialog aber zunächst nur den drucker auswählen. Zwar kommt über die Schaltfläche "Optionen" auch zum Druckertreiber. Die dort vorgenommenen Einstellungen werden aber leider nicht auf die im xl-AddIn integrierten Tabellenblätter angewendet. Weiß hier jemand einen Rat? Vermutlich müßte man vor jeder Einstellung erst das jeweilige Tabellenblatt selecten. Das geht aber mit dem in xls-Dateien üblichen Befehl
Thisworkbook.Sheets("Name").range("A1:A24").select
oder auch nur
Thisworkbook.Sheets("Name").select
bei einem AddIn leider nicht. Hat jemand eine Idee, wie man die über den Befehl "von Andre" vorgenommenen Einstellungen der Druckqualität trotzdem auf die einzelnen wks anwenden kann?
Vielen, vielen Dank für Euere Hilfe
Viele Grüße
Björn