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
3
440
Vastaukset
- EllaV
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. - Miksuit
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️711568Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1141034YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä50844- 58821
- 57760
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan74756Missä kaikessa olet erilainen
Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.39737Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli72734Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606026719Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.41697