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

162

Äänestä

    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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Suomen kansa haluaa Antti Lindtmanista pääministerin

      Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http
      Maailman menoa
      198
      4008

    2. Vain 21% kannattaa Lindtmania pääministeriksi

      se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?
      Maailman menoa
      111
      2553

    3. Miten löydän sinut

      Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit
      Ikävä
      35
      2220

    4. Yöllinen autolla kaahari Heinolan seudulla

      Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?
      Heinola
      80
      1380

    5. Vaikea tilanne

      Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te
      Ikävä
      86
      1258

    6. Milloin kaivatullasi

      .. on nimipäivä?
      Ikävä
      48
      1129

    7. Kehtaisitko näyttäytyä

      kaivattusi seurassa?
      Ikävä
      74
      996

    8. Emme koskaan keskustelleet kasvotusten syistä välirikollemme

      Enkä voisi kertoa perimmäistä rehellistä syytä. Kerroin sinulle pintapuolisen ”paketin” ja otin tavallaan omalle vastuu
      Ikävä
      57
      834

    9. Ne viimeiset kerrat

      Kun katsoit minua niin lämpimästi. En unohda sitä ❤️
      Ikävä
      56
      834

    10. S24 Lieksa miksi on paikallinen entinen Kansallinen Kokoomus valtuutettu sali niin kallis?

      Vailla alennuksia? gogo express joensuu kertakäynti 10 euroa avoinna 5-24. Miksi pitää Lieksassa tukea paikallista yritt
      Lieksa
      71
      794
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt