Tulostus makro

Pekka 299

On tämä vaikeaa. Kun määrittelen tulostusalueeksi A1:U72. Muodostuu automaattisesti alueelle sivujako (sekä pysty että vaaka). Kuinka tämän saisi pois, ja luotua sivuajaon sarkkeeseen "K)

3

488

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • muuan mies

      Fontti lienee niin suurta, että 72 rivin tulostus menee 4:lle sivulle. Pienennä sitä niin että mahtuu pystysuunnassa yhdelle sivulle, lisää sivunvaihto ja muuta sitten tulostusjärjestys Alas-sitten oikealle.

      • Pekka 299

        Kuinka kirjoittaa koodi niin että alkaisi rokkaamaan????


      • Pekka 299 kirjoitti:

        Kuinka kirjoittaa koodi niin että alkaisi rokkaamaan????

        j = Int(ActiveSheet.UsedRange.Rows.Count / 50)
        For i = 1 To j
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i * 50 1, 1)
        Next i

        ThisWorkbook moduuliin...

        Private Sub Workbook_BeforePrint(Cancel As Boolean)
        ActiveSheet.ResetAllPageBreaks
        ActiveSheet.PageSetup.PrintArea = "$A$1:$U$72"
        ActiveSheet.PageSetup.Zoom = 60
        ActiveWindow.View = xlPageBreakPreview
        Set ActiveSheet.VPageBreaks(1).Location = Range("L1")
        ActiveWindow.View = xlNormalView
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      149
      2209
    2. 121
      1495
    3. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      337
      1309
    4. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      67
      1224
    5. IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!

      Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk
      Maailman menoa
      3
      1201
    6. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      140
      1200
    7. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      142
      1192
    8. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      1129
    9. Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli

      Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.
      Maailman menoa
      161
      1086
    10. Onko hän samannäköinen kuin silloin?!

      Kun tutustuitte!
      Ikävä
      70
      1024
    Aihe