Dynamische print bereik in kolom A

[Abyss]

Dynamische print bereik

Ik zou graag een dynamische print bereik willen maken op basis van een VBA macro voor Excel 2007

Het betreft hier alleen kolom A vanaf A2 eigenlijk
Dus print alles waar iets in staat standaard op 26pnt

In de cellen A2 tot A600 staat eigenlijk alleen een =tekst.samenvoegen functie die komt uit de cellen F2 en G2.
Er mag dus alleen geprint worden wat ook daat werkelijk is samengevoegd.
de overgebleven cellen waar natuurlijk wel een formule staat mogen niet mee geprint worden.

ABYSS
Bekijk bijlage Map2.xls

 

[Cobbe]

Wie weet of deze het wel doet?

Sub Macro1()
Worksheets("Blad1").PageSetup.PrintArea = "A1:A" & [A:A].Rows.Count
ActiveSheet.PrintPreview
End Sub

Cobbe

 

[Abyss]

Wie weet of deze het wel doet?

Sub Macro1()
Worksheets("Blad1").PageSetup.PrintArea = "A1:A" & [A:A].Rows.Count
ActiveSheet.PrintPreview
End Sub

Cobbe

Nee deze neemt ook de lege cellen mee waar wel een formule in staat

Maar in iedergeval bedankt voor het meedenken

 

[Cobbe]

Ja klopt sorry. Maar waarom moeilijk doen als het ook makkelijk kan?
Ik heb in (witte letters) in B1 gezet =Aantal.als(A:A;">""") en deze waarde gebruikt in de printmacro.

Sub Macro1()
Worksheets("Blad1").PageSetup.PrintArea = "A1:A" & [B1]
ActiveSheet.PrintPreview
End Sub

Cobbe