Mulla on käytössä työkirja, jossa saattaa olla tulostettavia sivuja 2-34 riippuen siitä kuinka paljon taulukossa on rivejä. Onko mahdollista tehdä makro joka valitsisi tulostus alueen tietyssä sarakkeessa (esim. sarake O) olevan rivimäärän mukaan?
Tulostusalueen määrittely
Jokumuu
3463
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
Helpoin tapa on ensin tarkastaa kuinka paljon rivejä löytyy mikäli kaikilla riveillä on edes jotain eli eivät ole tyhjiä.
dim inRivit as integer
dim i as integer
for i = 1 to 3000 'Määrällä ei ole merkitystä kunhan on riittävästi
if wordbooks("Sheet1").Range("A" & i) "" then
inRivit = inRivit 1
else
exit for
end if
'Siitä kun on hypätty pois niin (olettaen että sivu aktiivinen
range.("A1:O" & inRivit).select
selection.print
Valitettavasti en linukan puolelta pysty tarkastamaan toimiiko mutta vaikkaisin että aika lähelle osuu.
Sub ValitseTaulu()
Dim VR As Integer
Dim VS As Integer
VR = Selection.SpecialCells(xlCellTypeLastCell).Row
VS = Selection.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(VR, VS)).Select
End Sub
Excelin omilla funktioilla
ThisWorkbook moduuliin...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim vika As Integer
vika = Range("O65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & vika
End Sub