AutoFilter Werte ausdrucken.
19.02.2007 11:31:13
marc
Ich habe einen variablen Datenbereich. Nach getroffene Selektion
will ich nur die sichtbaren Werte ausdrucken. Mit dem von mir geschriebenen VBA-Code werden alle Daten aus dem variablen Bereich ausgedruckt auch leere Blätter.
Was muss ich in dem Code anpassen, damit ich nur die sichtbaren Werte, die ich über AutoFilter
suche als selektierten Ausdruck bekomme.
Sub DruckenGes_Fehler()
Dim i As Integer
On Error Resume Next
Worksheets("Error").Activate
i = MsgBox("Druckseite in BlackAndWhite FORMAT only ", vbExclamation, "Druckbereich wurde festgelegt ")
Worksheets("Error").PageSetup.BlackAndWhite = True
ActiveSheet.PrintOut Copies:=1
Application.CutCopyMode = False
Range("J2").Select
End Sub
Gruss
-
marc...........