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 ❤️851748Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1201164YLE Ää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ä581026- 62916
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan74836- 57790
Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli78789Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606029786Missä kaikessa olet erilainen
Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.39757Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.43756