Calc tulostusmakro

jrax

Dokumentissa on 18 taulukkoa(välilehteä). Tarvis tulostaa ne jokainen omaan pdf-tiedostoon. pdf-tiedoston nimi pysyy aina samana.
Yritin nauhoittaa makron, mutta makro tulosti aina koko satasivuisen työkirjan.

Voisi olla joko yksi makro, joka tekisi kaikki välilehdet kerralla tai joka välilehdellä oma nappi.

1

85

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      Sub ExportSheetToPDF
      oDoc = ThisComponent
      oFrame = oDoc.getCurrentController().getFrame()

      ' range to store
      oObj = oDoc.getSheets().getByIndex(0)

      dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")

      Dim aArg(0) As New com.sun.star.beans.PropertyValue
      aArg(0).Name = "Selection"
      aArg(0).Value = oObj

      Dim aArgs(2) As New com.sun.star.beans.PropertyValue
      aArgs(0).Name = "URL"
      aArgs(0).Value = "file:///C:/test/01994.pdf"
      aArgs(1).Name = "FilterName"
      aArgs(1).Value = "calc_pdf_Export"
      aArgs(2).Name = "FilterData"
      aArgs(2).Value = aArg

      dispatcher.executeDispatch(oFrame, ".uno:ExportToPDF", "", 0, aArgs)
      End Sub

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

    Luetuimmat keskustelut

    1. Ukrainan ulkoministeri: Moskova aistii tappion Ukrainassa

      Dmytro Kuleban mukaan Venäjä yrittää puheillaan pelotella länsimaita. Ukrainan ulkoministerin Dmytro Kuleban mukaan Venäjän esittämät varoitukset kol
      NATO
      257
      4151
    2. Stefu haikailee

      Julkaisi stooreissa kuvan vickestä. Sitten Martinasta treenaamassa Hangossa ulkona. Hmm.
      Kotimaiset julkkisjuorut
      264
      3391
    3. Harmi mies ettet arvostanut

      Minua tarpeeksi. Myöhemmin kaikki olisi palkittu ja olisin antanut sinulle aitoa rakkautta. Tämä sattuu mutta yritän ajatella, että ehkä se rakkaus ku
      Ikävä
      154
      1768
    4. Oi! Legandaarinen Vesa-Matti "Vesku" Loiri, 77, poseeraa kahdessa eri kuvassa - Some riemastui!

      Vesa-Matti "Vesku" Loiri on kyllä legenda jo eläessään. Hienoa nähdä, että virtaa piisaa. Voimia, iloa ja eloa, Vesku! https://www.suomi24.fi/viihde
      Suomalaiset julkkikset
      25
      1625
    5. Lavrov väläyttelee WW3:sta

      Venäjän ulkoministeri Sergei Lavrov varoittaa, että kolmannen maailmansodan uhka on todellinen. Lavrov sanoi venäläiselle uutistoimisto Interfaxille,
      Maailman menoa
      296
      1406
    6. Ketä Sofia fanit veikkaatte seuraavaksi lompakoksi?

      Kenestä Sofia höynäyttää itselleen seuraavan lompakon?
      Kotimaiset julkkisjuorut
      131
      907
    7. Voiko hyvää omatuntoa ostaa?

      Olen tässä nyt muutaman päivän paininut erään rahaan liittyvän pulman kanssa. Kerron ensin vähän taustaa ... Eli erosin 15 vuoden parisuhteesta 9 vuo
      Sinkut
      235
      850
    8. en vaan saa häntä pois

      Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va
      Ikävä
      115
      806
    9. anna hänen mennä

      Jos rakastat jotakuta, anna hänen mennä. Jos hän palaa, hän oli aina sinun. Jos ei, hän ei koskaan ollut. Tällaiseen rakkauteen tämä mies uskoo.
      Ikävä
      54
      769
    Aihe