Über VBA Drucker auswählen

[Jochen Faber]

Hallo

ich möchte über 2 Option Buttons einen Drucker auswählen und dann mit
Tabelle2.PrintOut die Tabelle Drucken.

Wie kann ich das anstellen.
Danke im Vorraus

tschau

Jochen

[Bernd Held]

Hallo Jochen,

Post by Jochen Faber
Hallo
ich möchte über 2 Option Buttons einen Drucker auswählen und dann mit
Tabelle2.PrintOut die Tabelle Drucken.
Wie kann ich das anstellen.
Danke im Vorraus
tschau
Jochen

sowas in der Art sollte funktionieren:

über einen ToggleButton:

Dim MyPrinter As String
Dim ColorPrinter As String

Private Sub ToggleButton2_Click()
MyPrinter = "Standarddrucker"
ColorPrinter = "HP Deskjet"
If ToggleButton2.Value = 0 Then
ToggleButton2.Caption = "Standarddrucker"
Standard
ElseIf ToggleButton2.Value = -1 Then
ToggleButton2.Caption = "Farbdrucker"
Farbe
End If
End Sub

Sub Standard()
Application.ActivePrinter = MyPrinter
End Sub

Sub Farbe()
Application.ActivePrinter = ColorPrinter
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
VBA-Bücher und VBA-Schulungen
unter http://held-office.de

[Frank Arendt-Theilen]

Hallo Jochen,
erstelle zwei CommandButtons.
Dem ersten weist den folgenden Code zu:

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Den zweiten CommanButton den Code:

Private Sub CommandButton2_Click()
ActiveSheet.PrintOut
End Sub

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: ***@t-online.deee, Website: http://www.xl-faq.de

[Tobi]

Hi Jochen,

anbei ein Code, mit dem Du Deine Drucker auswählen und das aktive
Tabellenblatt drucken kannst. Den Code mußt Du einem CommandButton
zuweisen.

Sub Drucker_Multi()
Dim Druckerwahl As Boolean
Dim Kopf As String
Dim Stil As Integer

On Error GoTo Fehler
STD_DRUCK = Application.ActivePrinter
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
If Druckerwahl = True Then
ActiveWindow.SelectedSheets.PrintOut
End If
GoTo Ende
Fehler:
Kopf = "Druckerwechsel"
Stil = vbOKOnly + vbExclamation
MsgBox Err.Description, Stil, Kopf
Ende:
On Error Resume Next
Application.ActivePrinter = STD_DRUCK
Application.StatusBar = False
End Sub

Gruss Tobias