Druck ausgeblendetes Blatt Spezialfall
21.05.2016 16:26:03
MB12
heute benötige ich Eure Hilfe bei einem Detail:
Mit Herber-Unterstützung habe ich diesen funktionierenden Code:
Option Explicit
Sub MakroDruck()
' mit Strg+d
Dim iActiveSheetNr%, iCount%, sPrüfText$, a%, sTab1$, sTab2$
iActiveSheetNr = ActiveSheet.Index
iCount = Sheets.Count
sPrüfText = [A1].Value
For a = iActiveSheetNr + 1 To iCount
If Sheets(a).[A1].Value = sPrüfText Then
With Sheets(iActiveSheetNr)
.PageSetup.PrintArea = "A:L"
.PageSetup.Orientation = xlPortrait
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With
With Sheets(a)
.PageSetup.Orientation = xlPortrait
.PageSetup.PaperSize = xlPaperA4
.PageSetup.Zoom = False
End With
sTab1 = Sheets(iActiveSheetNr).Name
sTab2 = Sheets(a).Name
Sheets(Array(sTab1, sTab2)).Select
Application.Dialogs(xlDialogPrint).Show
Sheets(iActiveSheetNr).Select
Exit Sub
End If
Next a
End Sub
Hiermit rufe ich aus dem jeweils aktuellen Hauptblatt ein Zusatzblatt auf, beide sollen dann in einem Rutsch gedruckt werden -genauer gesagt: Der Druckdialog umfasst beide Blätter.Vielleicht kennt ihr eine Lösung, wie dieser Ablauf funktionieren könnte, auch wenn das Zusatzblatt ausgeblendet ist. Ich weiß theoretisch, dass man dieses Blatt über den Code kurzfristig ein- und nach dem Drucken wieder ausblenden kann. Geht das auch, wenn das Makro nur wie hier bis zum Druckdialog geht (damit der User die Seitenansicht vor dem Druck zur Verfügung hat)?
Wenn das zu aufwändig wäre, müßte ich eben auf das Ausblenden der Zusatzblätter verzichten, ich schiebe sie dann ganz nach rechts.
Danke für Eure Unterstützung trotz des schönen Wetters.
Gruß
Margarete