Syntaxfrage zu printout

Public Sub CmdBt_InfoblDrucken() Dim printarea As Range Set wsConfig = ThisWorkbook.Worksheets("config") Set wsFormular = ThisWorkbook.Worksheets("Formular") '(hab ich bei opt expl schon deklariert) bHinterFormular = False For Each ws In ThisWorkbook.Worksheets If ws.Name "Formular" _ And bHinterFormular = True Then ws.Activate ActiveSheet.PageSetup.printarea = wsConfig.Range("AM12").Value & ":" & wsConfig. _ Range("AM13").Value ActiveSheet.printarea.PrintOut End If If ws.Name = "Formular" Then bHinterFormular = True End If Next ws End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jörg,
ws.PrintOut
Excel ist ein vielseitiges Programm und man kann viele Probleme damit lösen. Jede positive Seite hat aber auch negative Aspekte - einer davon ist im Makrorecorder enthalten.
Die Bücher, die es zu Excel VBA gibt, erklären viele Funktionen, aber ich habe bisher nur in einem gelesen, dass der vom Makrorecorder aufgezeichnete Code bereinigt werden sollte.
Der Makrorecorder zeichnet alle Aktionen auf, u. a. auch das Auswählen einer Zelle oder eines eingebetteten Objektes (Bild, Diagramm, Zeichnungsobjekt usw.) dabei wird generell Select und Activate aufgezeichnet. Diese Befehle sind in VBA zu 99,9% nicht notwendig. Sie lassen den Bildschirm flackern und senken die Geschwindigkeit bei der Ausführung des Codes. Man sollte also schon von Beginn an bei der Programmierung darauf achten, solche Befehle zu vermeiden. Meine Erfahrung mit dem Vorsatz: Das mache ich später ist, man schreibt das Programm später meist komplett neu. Also kostest es nicht nur Rechnerzeit sondern auch Deine Zeit und ist Dir Deine Zeit so wenig Wert?
Zum Vergleich mit und ohne Select schau Dir auch mal diese Beispielarbeitsmappe an: mit und ohne select Auf meiner Homepage sind alle meine Beispiele ohne Select. Da kann man sich also einige Lösungsansätze zu diesem Thema ansehen.
Gruß Hajo

Guten Morgen, Ihr Zwei
erstmal vielen Dank für die Beispiele! Der Wiki-Artikel zeigt 'ne Menge Nützliches, das ich nicht wußte. Allerdings: daß man sich das Selection meist sparen kann, habe ich in meiner "autodidaktischen Laufbahn" auch schon verinnerlicht.
Im vorliegenden Problem stand da ursprünglich KEIN ws.Activate, und statt Printout stand da Application.Dialogs(xlDialogPrint).Show
Folge: Der Drucker spuckte (bei 1x Klick auf OK im Dialog) 10 leere Seiten aus - nämlich weil ActiveSheet offenbar jenes ist, in dem sich der Button zum Starten des Drucks befindet, und da sind die Zellen leer (warum allerdings zehn Seiten und nicht zwei -so groß wie der Bereich-, ist mir ein Rätsel)
Mit ws.Activate IN der Schleife habe ich doch nur gesagt, daß nicht etwas aus dem aktiven Blatt gedruckt werden soll, sondern aus dem, was beim Schleifendurchlauf vorübergehend zum aktiven gemacht wird. Oder lieg ich da falsch? Jedenfalls bekam ich nach Hinzusetzen von ws.Activate genau die Bereiche gedruckt, die es auch sein sollten, nämlich die in den durchgelaufenen Blättern.
Nun wollte ich, um nicht mehrfach auf den Dialog klicken zu müssen, diesen einfach durch einen Druckbefehl ersetzen, und da hapert's bei mir an der passenden Syntax, um den zu druckenden Bereich korrekt anzusprechen. Im Grunde ist also die Frage: Heißt der Bereich wirklich Printarea, und wenn ja, wie spreche ich ihn an?
Aber da wir gerade dabei sind, hier noch der Rest: Die Blätter heißen Müller, Meier, Schulze sowie frei1, frei2, frei3 usw. Gedruckt werden sollen nur die durch die config beschriebenen Bereiche in jenen Blättern, die anders als frei... heißen.
Meine ForNext-Schleife dazu hab ich offenbar an die falsche Stelle gesetzt - jedenfalls gab's da auch nur Streß. Wo muß die denn stehen? So sieht's bislang aus:

Public Sub CmdBt_InfoblDrucken()
Dim printarea As Range
Set wsConfig = ThisWorkbook.Worksheets("config")
Set wsFormular = ThisWorkbook.Worksheets("Formular")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
bHinterFormular = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Formular" _
And bHinterFormular = True Then
For i = 1 To 17
If ActiveSheet.Name  ("frei" & i) Then
ws.Activate
ActiveSheet.PageSetup.printarea = wsConfig.Range("AM12").Value & ":" & wsConfig. _
Range("AM13").Value
ws.printarea.PrintOut   '(funktioniert so nicht)
End If
Next i
End If
If ws.Name = "Formular" Then
bHinterFormular = True
End If
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Habt ihr 'ne Idee...?
Grüße- Jörg

Option Explicit ' IMMER zu empfehlen Public Sub CmdBt_InfoblDrucken() Dim wsConfig As Worksheet, wsFormular As Worksheet, bHinterFormular As Boolean Dim ws As Worksheet, strPA As String Set wsConfig = ThisWorkbook.Worksheets("config") Set wsFormular = ThisWorkbook.Worksheets("Formular") '(bei opt expl schon deklariert) strPA = wsConfig.Range("AM12").Value & ":" & wsConfig.Range("AM13").Value For Each ws In ThisWorkbook.Worksheets If ws.Name = "Formular" Then bHinterFormular = True Else If bHinterFormular Then ws.PageSetup.PrintArea = strPA ws.PrintOut End If End If Next ws End Sub

Option Explicit ' IMMER zu empfehlen Public Sub CmdBt_InfoblDrucken() Dim wsConfig As Worksheet, wsFormular As Worksheet, bHinterFormular As Boolean Dim ws As Worksheet, strPA As String Set wsConfig = ThisWorkbook.Worksheets("config") Set wsFormular = ThisWorkbook.Worksheets("Formular") '(bei opt expl schon deklariert) strPA = wsConfig.Range("AM12").Value & ":" & wsConfig.Range("AM13").Value For Each ws In ThisWorkbook.Worksheets With ws If UCase(Left(.Name, 4)) = "FREI" And IsNumeric(Mid(.Name, 4)) Then ' tu nix ElseIf .Name = "Formular" Then bHinterFormular = True Else If bHinterFormular Then .PageSetup.PrintArea = strPA .PrintOut End If End If End With Next ws End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread