Zeilen nicht anzeigen, aber drucken

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

in meinem Excelblatt habe ich die Zeilen 30 bis 42 ausgeblendet.
Beim Druckvorgang sollen sie aber mitgedruckt werden.

Hat jemand einen Tipp, wie sich das realisieren läßt?

Excel 2000

Gruß und danke

Rolf

2

Hat jemand einen Tipp, wie sich das realisieren läßt?

Der Tipp heisst:
Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub

Allerdings weiss ich nicht, wie Du nach dem Print dann die Zeilen wieder ausblenden kannst *grübel*

3

in meinem Excelblatt habe ich die Zeilen 30 bis 42
ausgeblendet.
Beim Druckvorgang sollen sie aber mitgedruckt werden.
Excel 2000

Hi Rolf,
Alt+F11, Doppelklick auf „Tabelle1“, Code einfügen, Editor schliessen.

Option Explicit

Private Sub Workbook\_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
With Worksheets("Tabelle1").Rows("30:42")
 .Hidden = False
 ActiveSheet.PrintOut
 .Hidden = True
End With
Application.EnableEvents = True
End Sub

Gruß
Reinhard

4

Danke
Danke für die schnelle Hilfe,
Ihr seid klasse.

Gruß

Rolf