Macro PDF teko

PDF_Macromies

Mulla on Exclissä Macro joka tekee tulostusalueesta PDFän, mutta PDFät on aika suuria koska niitä tulee 100kpl

Onkohan mitään keinoa saada ulos pienempää PDFää
Mulla on nyt koodina:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFolder & "\" & Range("L5").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

5

285

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kundepuu

      En nyt ole varma ymmärsinkö oikein kysymyksen....
      Siis jos taulukosta tulostat niin PDF ;ssä useita sivuja ja haluat pienempii osiin ja useamman PDF tulostuksen. Nyt tulostaa sivun pätkissä

      Sub PDF()
      Dim SivujaYhteensä As Long
      Dim YksittäisenPDfSivut As Long
      Dim MyFolder As String
      MyFolder = "C:\Testi"
      YksittäisenPDfSivut = 5
      SivujaYhteensä = (ActiveSheet.HPageBreaks.Count 1) * (ActiveSheet.VPageBreaks.Count 1)
      For i = 1 To SivujaYhteensä Step YksittäisenPDfSivut
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFolder & "\" & Range("L5").Value & "_" & i & "-" & i YksittäisenPDfSivut - 1 & ".pdf", From:=i, To:=i YksittäisenPDfSivut - 1
      MsgBox i YksittäisenPDfSivut - 1
      Next
      End Sub

      KEEP EXCELing
      @Kunde

    • PDF_Macromies

      Eiku Kunde tarkotuksena oli kysellä saako PDFää jotenkin pakattua pienemmäksi, nyt kun tein PDFän niin koko oli 364KB

    • TilaaOn

      365 KB on pieni.

      • PDF_Macromies

        Joo onhan se, mutta sitten kun niitä onkin 100kpl ja pitäisi sitten lähettää sähköpostitse


    • Vaihtoehtoja

      - Pakkaa pdf:t yhteen, tai jos tulee liian iso, useampaan tiedostoon
      tai
      - Lähetä pdf:t tapeeksi monessa erässä
      tai
      - Laita ne esim. Dropboxiin.

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

    Luetuimmat keskustelut

    1. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      166
      2981
    2. Miten juhlitte ensi lauantaina?

      Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.
      Maailman menoa
      292
      2662
    3. Suomen veroaste 5 %-yks liian matala

      Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.
      Maailman menoa
      75
      1758
    4. Kolme neljästä suomalaisesta kannattaa miljonääriveroa

      Kertoo vasemmistoliiton teettämä kysely. Veron ulkopuolelle jätettäisiin asunto. "Puolet vastaajista oli sitä mieltä, e
      Maailman menoa
      47
      1655
    5. Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?

      JOS siis sinä saisit päättää?
      Maailman menoa
      38
      1530
    6. Voi mies olit taas niin komea

      Olet silmäkarkkia ❤️ Sua vois katsella vaikka koko päivän. ❤️
      Ikävä
      122
      1296
    7. Kadutko koskaan

      Sitä mun iskiyritystä?
      Ikävä
      103
      1203
    8. Ryöstö Punkaharjulla

      Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee
      Savonlinna
      14
      1174
    9. Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa

      Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.
      Luterilaisuus
      369
      1113
    10. Uudestisyntyminen ei tapahdu kasteessa

      Tässä Apostolien tekojen kohdassa näemme, että Filippus julisti hoviherralle ensin evankeliumia ja kuulusteli sitten tar
      Kaste
      204
      1063
    Aihe