Tulostusalueen määrittely

Jokumuu

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?

3

440

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      85
      1748
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      120
      1164
    3. YLE Ää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ä
      Äänekoski
      58
      1026
    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      62
      916
    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      74
      836
    6. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      790
    7. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      78
      789
    8. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      786
    9. Missä kaikessa olet erilainen

      Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.
      Ikävä
      39
      757
    10. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      43
      756
    Aihe