Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck über CMB

Forumthread: Druck über CMB

Druck über CMB
Stefanglander
Guten Abend Forum,
ich habe folgenden Code in diese Arbeitsmappe gelegt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
Dim varRow
Dim rZelle As Range
myAr = Array(Sheets(30), Sheets(29), Sheets(7))
For i = LBound(myAr) To UBound(myAr)
With myAr(i)
varRow = Application.Match(10 ^ 307, .Columns(1), 1)
If IsNumeric(varRow) Then
If varRow
Im Modul steht folgendes:
Option Explicit
Public myAr()
Sub Einblenden()
Dim i As Integer
For i = LBound(myAr) To UBound(myAr)
myAr(i).Cells.EntireColumn.Hidden = False
myAr(i).Cells.EntireRow.Hidden = False
Next i
Erase myAr
End Sub Nun habe ich versucht über einen CMB auf Sheet 29 den Drück auszulösen.
Private Sub CommandButton1_Click()
PrintOut Copies:=1, Collate:=True
End Sub
Nun wird aber wieder das gesamte Blatt gedruckt.
Wie muss ich den Code für den CMB ändern.
Für Hilfe bedanke ich mich im Vorfeld
Stefan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Druck über CMB
25.08.2009 22:51:27
Daniel
Hi
ich würde das so machen:
1. folgenden Code in ein allgemeines Modul 
Option Explicit
Public myAr()
Sub Ausblenden
Dim i As Integer
Dim varRow
Dim rZelle As Range
myAr = Array(Sheets(30), Sheets(29), Sheets(7))
For i = LBound(myAr) To UBound(myAr)
With myAr(i)
varRow = Application.Match(10 ^ 307, .Columns(1), 1)
If IsNumeric(varRow) Then
If varRow
diesen Code ins Modul der Arbeitsmappe 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Ausblenden
Application.OnTime Now + TimeSerial(0, 0, 1), "Einblenden" 'eventuell die Zeit etwas erhöhen
End Sub
und diesen Code dem Commandbutton zuweisen: 
Private Sub CommandButton1_Click()
Call Ausblenden
Application.EnableEvents = false
PrintOut Copies:=1, Collate:=True
Application.EnableEvents = true
Call Einblenden
End Sub
Gruß, Daniel
Anzeige
Danke (Mit Text)
26.08.2009 19:46:31
Stefanglander
Hallo Daniel,
das funktioniert genauso wie ich es erhofft habe. Zeit brauchte ich nicht verändern, haut super hin.
Ganz herzlichen Dank
Stefan
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige