Alleen ingevulde cellen binnen een bepaald bereik afdrukken

Gerrit Brands

unread,

Mar 29, 2006, 5:13:58 AM3/29/06

to

Goedemiddag,

Ik heb een werkblad met daarin een validatielijst, deze gebruik ik om
op een andere locatie in het werkblad gegevens in te voeren en deze te
koppelen aan bepaalde artikelnummers.

Verder is er nog een vrij in te vullen kolom, samen beslaan deze dus 3
kolommen.

Als ik echter wil printen wil ik allleen de gegevens in deze 3 kolommen
afdrukken, echter een afdrukbereik voldoet niet omdat de gebruikte
aantallen rijen variëren. Ik zou dan voor elke printopdracht een ander
bereik moeten instellen.

Ik heb hier
http://groups.google.com/group/microsoft.public.nl.office.excel/browse_thread/thread/623ccf3fb7a56283/f7c6c71085e93208?lnk=st&q=excel+alleen+ingevulde+cellen+afdrukken&rnum=3&hl=nl#f7c6c71085e93208

wel wat gevonden maar krijg het niet voor elkaar dit in mijn document
te verwerken.

Alvast bedankt voor uw reactie.

Gerrit

Cobbe

unread,

Mar 29, 2006, 6:39:16 AM3/29/06

to

Gerrit Brands stelde de volgende uitleg voor :

Met deze macro moet dat wel lukken mits enige aanpassingen:

Sub Afdrukbereik_bepalen()
'laatste ingevulde rij wordt bepaald van kolom C
rij = Application.WorksheetFunction.Count(Range("C:C"))
' 3 de kolomnummer invoeren
kolom = 3
'rij en kolom kun je vrijelijk bepalen
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(rij, kolom).Address
End Sub
'$A$1 = de eerste cel van de eerste, af te drukken kolom.
' dus als de kolommen beginnen met kolom G dan :
'$A$1 wordt $G$1 en kolom wordt dan 9

succes, Cobbe

--
De problemen van vandaag zijn geschiedenis voor morgen.

Gerrit Brands

unread,

Mar 29, 2006, 10:23:44 AM3/29/06

to

Dank je wel voor je snelle reactie, met deze macro wordt het bereik
echter bepaald door de laatste "string" (goed omschreven?) :
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(65, 3).Address

Als ik deze zo invul worden het nog 2 pagina's terwijl er bijv. maar 20
rijen ingevuld zijn.

Maar het kan ook zijn dat ik het fout doe natuurlijk!!

Gerrit

Cobbe

unread,

Mar 29, 2006, 10:31:33 AM3/29/06

to

Gerrit Brands schreef op [Date] :

Ja natuurlijk worden het zo 2 pagina's. Je bepaalt het afdrukbereik op
65 rijen.

Sub Afdrukbereik_bepalen()
' om rij correct te kunnen bepalen moet je de juiste kolom aanpassen.
' als het goed is wordt rij automatisch 20, dat kun je kontr. in VBA

rij = Application.WorksheetFunction.Count(Range("C:C"))

kolom = 3

ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(rij, kolom).Address
End Sub

Laat eens weten wat er precies in die kolommen staat.

Gerrit Brands

unread,

Mar 30, 2006, 2:11:59 AM3/30/06

to

Goedemorgen,

kolom A is een vrij in te vullen veld
kolom B compleet worden artikelomschrijvingen ingevuld aan de hand van
een gevalideerde lijst.
kolom C compleet staat formule die bij de artikel omschrijvingen uit
kolom B een artikel nummer zoekt. Als B = leeg dan C=leeg

Als ik macro zo uitvoer in Visual Basic geeft deze fout 1004

Cobbe

unread,

Mar 30, 2006, 2:58:19 AM3/30/06

to

Gerrit Brands formuleerde de vraag :

Deze bepaalt het afdrukbereik tot en met de laats ingevulde regel in
kolom A.
Ik hoop dat dat toch de bedoeling is. Om dit eventueel aan te passen
wijzig je de A in Range("A65536") in B of C, naargelang het gebied dat
je wil printen.

Sub Afdrukbereik_bepalen()
rij = Range("A65536").End(xlUp).Row

kolom = 3
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(rij, kolom).Address
End Sub

Succes, Cobbe

Gerrit Brands

unread,

Mar 30, 2006, 4:24:49 AM3/30/06

to

Deze werkt geweldig, u bent de beste.

Vriendelijke groet en bedankt voor de goede zorgen,

Gerrit Brands