[vb/excel2000] Print opties

[degroot]

ik zit met een vaag probleempje.
ik was laatst met een verkoopoverzicht bezig.
nu wil ik zon werkblad in excel ook uitprinten.
maar de ene x heb ik meer rijen om uit te printen dan de andere keer.

dus het zit zo,
hij mag maximaal 27 kolomen printen dus dat word een vaste waarde van $AA$3 ,
maar de waarde van de rijen kan nogal wel eens heel erg veel verschillen,
van 10 rijen met een waarde tot aan 100 rijen met een waarde.

code:

Range(Selection, Selection.End(xlDown)).Select

werkt helaas niet omdat eronder een lege rij zit en daaronder begint de opmaak van het totaal bedrag wat in dit topic is behandeld en waar ook een deel van mij vraag in verwerkt zit:
[vb/excel] autosom

ik hoop dat ik een beetje duidelijk ben geweest
heb search gehad en op andere forum rond gekeken maar daar kwam ik het juiste antwoord helaas niet tegen.
en google bood al helemaal niks
haha hopelijk kunne jullie mij dan helpen

[BtM909]

Hoe is het einde van de rows bepaald?

[sopsop]

Is het geen optie om niet met een range uit te printen, maar gewoon het hele worksheet (werkblad)?

[degroot]

boppert schreef op woensdag 12 januari 2005 @ 14:33:
Is het geen optie om niet met een range uit te printen, maar gewoon het hele worksheet (werkblad)?

nee dat is helaas geen optie
ik voer de volgende code uit om alle rijen te selecteren die nodig zijn

code:

Range(Selection, Selection.End(xlToRight)).Select

dan is er namelijk 1 lege rij en daarachter staan wat cellen met validatie regels die gebruikt worden.
en volgens mij als je hele worksheet gaat printen krijg je onnodig veel lege pagina's uit je printer rollen, als je uit een range print pas het precies op 1 bladzijde als het goed is.

BtM909 schreef op woensdag 12 januari 2005 @ 13:58:
Hoe is het einde van de rows bepaald?

wat bedoel je daarmee precies mee?

[ Voor 13% gewijzigd door degroot op 12-01-2005 14:52 ]

[degroot]

iemand misschien?

[BtM909]

degroot schreef op woensdag 12 januari 2005 @ 14:51:
[...]


wat bedoel je daarmee precies mee?

Precies zoals ik het vraag hoe is het einde bepaald: zitten er waardes in de regels en wil je eindigen bij de eerste lege regel?

[onkl]

Je kan op zich de rij van de laatste cel die je in je werkblad gebruikt vinden met
Activesheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Vervolgens kan je code maken als:

Visual Basic:

dim rij as integer
dim kolom as integer
Dim bereik as range
rij = Activesheet.Cells.SpecialCells(xlCellTypeLastCell).Row
kolom = 27
Set bereik = Range(Cells(1,1),Cells(rij,kolom))
ActiveSheet.PageSetup.PrintArea = bereik.address

Als er nog formules in de niet te printen cellen staan, gaat dit niet werken, kijk ook eens in Excel of er special cells zijn die je verder helpen (edit-goto-special)
Je kan overigens ook complete kolommen als printbereik instellen (A:AA of zo) en eens kijken of het zo een beetje netjes geprint wordt.

[ Voor 27% gewijzigd door onkl op 13-01-2005 12:24 ]

[degroot]

BtM909 schreef op donderdag 13 januari 2005 @ 12:12:
[...]

Precies zoals ik het vraag hoe is het einde bepaald: zitten er waardes in de regels en wil je eindigen bij de eerste lege regel?

ik wil het print bereik instellen tot aan de laatste lege regel(dit kan dus variabel zijn) maar hij mag in de breedte maximaal maar tot kolom AA gaan
daarnast staan nog een aantal waardees in die bij valideren gebruikt worden(staan geen formules in)