Hallo, ich bitte um eure Hilfe!
Ich lasse mittels Checkbox verschiedene Bereiche eines Tabellenblattes ein- und ausblenden. Die eingeblendeten Bereiche sollen nun auch gedruckt werden. Die ausgeblendeten Seiten werden aber immer als leere Seiten ausgedruckt.
Wie kann ich den Druckbereich mittels Befehlt so festlegen, dass ich keine leeren Seiten bekomme?
Druckbereiche: Sheet "Offert" B2:K33 & B214:K297
Vielen Dank für die Hilfe!!
Reini
Excel 2010
Hallo Reini,
verstehe ich nicht. Die ausgeblendeten Zeilen werden doch nicht gedruckt.
(16.10.2015, 13:28)Steffl schrieb: [ -> ]Hallo Reini,
verstehe ich nicht. Die ausgeblendeten Zeilen werden doch nicht gedruckt.
Hallo Stefan, doch sie werden als leere Seiten ausgegeben. Die Zellen B34 : K213 werden als leere Seiten angezeigt, obwohl sie ausgeblendet sind.
lg
Hey,
ich bin selber VBA Anfänger, aber ich glaube das könnte man doch mit einer If-Bedingung lösen.
Code:
Private Sub Checkbox_Click()
If Checkbox = True then
ActiveSheet.PageSetup.PrintArea = "B2:K33" & "B214:K297"
Else
ActiveSheet.PageSetup.PrintArea = "B2:K33"
End If
End Sub
, sonst in dem definierten Namen Druckbereich da eine Formel einzustellen ist mir persönlich noch nie geglückt.
Gruß Joe
(16.10.2015, 14:27)Joe schrieb: [ -> ]Hey,
ich bin selber VBA Anfänger, aber ich glaube das könnte man doch mit einer If-Bedingung lösen.
Code:
Private Sub Checkbox_Click()
If Checkbox = True then
ActiveSheet.PageSetup.PrintArea = "B2:K33" & "B214:K297"
Else
ActiveSheet.PageSetup.PrintArea = "B2:K33"
End If
End Sub
, sonst in dem definierten Namen Druckbereich da eine Formel einzustellen ist mir persönlich noch nie geglückt.
Gruß Joe
Hallo Joe,
danke, wie könnte man lösen, wenn die Checkbox am Tabellenblatt "Kunde" ist und die PrintArea am Sheet "Offert" ist.
Danke für die Hilfe. Reini
Hallo Reini,
den Code von Joe ein wenig umgeändert und auf das passende Sheet verweisen lassen.
Code:
Private Sub Checkbox_Click()
If Checkbox = True then
Worksheets("Offert").PageSetup.PrintArea = "B2:K33,B214:K297"
Else
Worksheets("Offert").PageSetup.PrintArea = "B2:K33"
End If
End Sub
(16.10.2015, 17:35)Steffl schrieb: [ -> ]Hallo Reini,
den Code von Joe ein wenig umgeändert und auf das passende Sheet verweisen lassen.
Code:
Private Sub Checkbox_Click()
If Checkbox = True then
Worksheets("Offert").PageSetup.PrintArea = "B2:K33,B214:K297"
Else
Worksheets("Offert").PageSetup.PrintArea = "B2:K33"
End If
End Sub
super, nun funktioniert es! danke euch sehr! schönes WE!