Druckprobleme....
07.08.2008 15:24:32
Uwe
möchte gern per Button auf einer UF ein Tabellenblatt ausdrucken......
Private Sub CommandButton12_Click()
Dim P
P = Application.Dialogs(xlDialogPrint).Show
If Not P = False Then
Sheets("Tabelle1").PrintOut
End If
End Sub
Private Sub CommandButton15_Click()
Dim P
P = Application.Dialogs(xlDialogPrint).Show
If Not P = False Then
Sheets("Vorausgefüllt").PrintOut
End If
End Sub
Private Sub CommandButton16_Click()
Dim P
P = Application.Dialogs(xlDialogPrint).Show
If Not P = False Then
Sheets("Blanko").PrintOut
End If
End Sub
.... jedoch druck er zusätzlich immer noch das aktivierte Tabellenblatt 1 mit aus.
Möchte jedoch nur die Auswahl per Button.
Was hab ich da falsch gemacht?
Für eure Hilfe schon mal Dank vorab!!!!
Gruß Uwe