Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige