AW: Kommentar in Zelle
31.03.2005 16:22:58
ANdreas
Hallo ray,
das geht m.W. nur über den Umweg den Bereich als Bild zu kopieren.
Kannst Du manuell machen oder hier mal als VBA-Ansatz:
Sub Beispiel()
' Gitternetzlinien aus
ActiveWindow.DisplayGridlines = False
' Festgelegten Bereich als "Bild wie angezeigt" kopieren
Range("A1:F8").CopyPicture Appearance:=xlScreen, Format:=xlPicture
' Gitternetzlinien ein
ActiveWindow.DisplayGridlines = True
' Temporäre Mappe für Ausdruck
Workbooks.Add
' Bild einfügen
ActiveSheet.Pictures.Paste
ActiveSheet.PrintPreview ' .PrintOut für Ausdruck
' Schließen ohne zu speichern
ActiveWorkbook.Close SaveChanges:=False
Application.CutCopyMode = False
End Sub
Das könnte man dann mit leichten Anpassungen ins BeforePrint Ereignis setzen, wenn es bei jedem Ausdruck automatisch geschehen soll (evtl. Abfrage für welche Sheets + Cancel = True)
Gruß
Andreas