Syntaxfrage zu printout
Jörg-HH
ich möchte beim Durchlauf durch div. Blätter ab einem bestimmten Blatt ("Formular") von allen folgenden einen bestimmten Bereich ausdrucken lassen. Bei "ActiveSheet.printarea.PrintOut" werde ich ausgemeckert - wie muß es denn an der Stelle richtig heißen?
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
Grüße - Jörg