Kommentare drucken
08.05.2008 14:42:05
Bertram
ich möchte gerne die in einer Tabelle eingefügten Kommentare am Ende der Seite drucken. File - Page Setup etc. ist klar.
Kann ich denn beeinflussen, wie er die Kommentare ausdruckt (Format, Farbe, etc.)?
habe mir jetzt mit folgendem beholfen. Das funktioniert super, wäre nur überflüssig, falls man irgendwo Einstellungen diesbezüglich machen kann.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Zelle As Range
Dim i As Integer
Application.EnableEvents = False
If ActiveSheet.Name Trim(Year(Date)) Then Exit Sub
With [A43]
.Value = "Kommentare"
.Font.Bold = True
End With
For Each Zelle In [B1].CurrentRegion.Cells.SpecialCells(xlCellTypeComments)
Cells(43 + i, 1).Value = Zelle.Value
Cells(43 + i, 2).Value = Zelle.Comment.Text
i = i + 1
Next Zelle
ActiveSheet.PrintOut
[A43].CurrentRegion.ClearContents
Cancel = True
Application.EnableEvents = True
End Sub
Gruß
Bertram
Anzeige