Kopfzeile per VBA ändern?
09.10.2007 09:37:57
InaB
Ich möchte, daß beim Druck eines Tabellenblattes verschiedene Texte in der Kopfzeile erscheinen.
Das heißt, starte ich den Ausdruck per CommandButton 3 soll im Kopf (CenterHeader) "Beispiel 1" erscheinen, bei Ausdruck per Commandbutton 4 soll "Beispiel 2" erscheinen.
Ist das Möglich? Wenn ja, wie muß die Anweisung lauten und wo muß sie im folgenden Code stehen?
Wer kann mir helfen und den Code (von einem Forumsmitglied freundlicherweise zur Verfügung gestellt) entsprechend umbasteln?
Danke für eure Hilfe!
Grüsse, InaB
Private Sub CommandButton3_Click()
' TextBoxen ausdrucken über das ausgeblendete Tabellenblatt "Druck"
If Len(Trim(TextBox2)) = 0 Then MsgBox "Nichts zum Drucken da! ", 64, " Hinweis :-)": _
_
Exit Sub
Dim lngC As Long
Dim objSh As Worksheet
Set objSh = Sheets("Druck")
With ListBox1
If .ListCount > 0 Then
If .List(0, 0) "Kein Eintrag!" Then
If .ListIndex > -1 Then
objSh.Columns(1).Font.Bold = False
objSh.Columns(1).HorizontalAlignment = xlRight
objSh.Columns(2).Font.Bold = True
For lngC = 1 To 10
objSh.Cells(lngC, 1) = Controls("Label" & lngC) & ":"
objSh.Cells(lngC, 2) = Controls("TextBox" & lngC)
Next
Me.Hide
With objSh
.Columns.AutoFit
.Visible = xlSheetVisible
'Druckvorschau
.PrintPreview
'oder gleich Ausdrucken
'.PrintOut
.Cells.Clear
.Visible = xlSheetHidden
End With
Me.Show
End If
End If
End If
End With
Set objSh = Nothing
End Sub