Excel afdrukken lege cellen met formules

[sharda002]

Hallo,

Ik heb een factuur met ca 200 rijen met formules (b1 t/m h200), als je een waarde in kolom a ingeeft vult die automatisch de rij.
Voorbeeld: in a1 vul je in "artikel 12" dan vult deze b1 t/m h1 met het type artikel prijzen enz.

Als ik nu wil gaan afdrukken en ik heb maar 20 regels gemaakt print die zo,n 12 pagina,s waarvan er 11 blanco zijn.

Ik zoek een vba / code die alleen de gevulde regels afdrukt.
Met de instellingen "lege cellen" niet afdrukken lukt dit niet.
ik akn natuurlijk afdrukvoorbeeld selecteren en dan paginaeinde aanpassen maar wil dit automatiseren.

Excel ziet een formule in een cel ook als waarde, neem ik aan.

ik heb al veel vba,s geprobeert in de worksheet maar werkt allemaal neit

Wie kan mij helpen??

bedankt

John

 

[Elsendoorn2134]

John,

Je kunt een variabele printreeks aanmaken en deze reeks dan gebruiken in een printopdracht.
Een variable printreeks maak je aan door een in Excel 2001
Insert, Name, Define of in het Excel 2007 Formules Naam beheren
Een naam in te geven met een van de volgende formules:

Engelstalig =OFFSET(Sheet1!$A$1;0;0;COUNTA(Sheet1!$A:$A);COUNTA(Sheet1!$1:$1))
Nederlandstalig) =VERSCHUIVING(Sheet1!$A$1;0;0;AANTALARG(Sheet1!$A:$A);AANTALARG(Sheet1!$1:$1))

Hierbij wordt er van uitgegaan dat er geen lege regels of cellen zijn in kolom A van cel A1 t/m het einde van de tabel. Ook zijn er geen lege kolommen in de rij van cel A1 t/m H1

Ik heb een reeks aangemaakt met de naam PrintReeks.
Neem daarna de volgende regels op in je VBA macro, dan worden alleen de regels geselecteerd die je nodig hebt om te printen
ActiveSheet.PageSetup.PrintArea = "PrintReeks"

Je kunt daarna handmatig printen of de print automatich laten starten door de volgende regel op te nemen in de VBA macro.

ActiveWindow.SelectedSheets.PrintOut

Veel Succes

 

[sharda002]

bedankt dit werkt, allen selecteerd deze uitsluitend kolom a,b,c maar ik moet t/m H

Nu wil ik alleen ook nog dat kolom A niet word afgedrukt, heb je nog een goed idee?

in ieder geval alvast bedankt!

 

[Elsendoorn2134]

John,

De formule verwacht dat de te printen lijst begint in cel A1.
Omdat je maar drie kolommen ziet vermoed ik dat dat niet het geval is.
Pas de Formule aan, de formule bepaald het aantal te printen kolommen
door het aantal getelde kolommen te tellen met AANTALARG(Sheet1!$1:$1)
Als echter je tabel pas begint op regel 10 moet je dit aanpassen met
AANTALARG(Sheet1!$10:$10);

Om kolom A niet mee te printen kun je het startpunt van de print veranderen in
Sheet1!$B$1 inplaats van Sheet1!$A$1 wel heb je dan minder kolommen nodig dus ook
het aantal kolommen verminderen met AANTALARG(Sheet1!$10:$10) - 1

Veel succes.

 

[sharda002]

en het werkt nu perfect, dank je wel!!!

 

[Roncancio]

Graag de vraag nog op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio