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

303

Äänestä

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?

      Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-
      Maailman menoa
      12
      5646

    2. Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"

      Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite
      Maailman menoa
      82
      5279

    3. Mitä haluaisit sanoa tänään hänelle?

      Rakastamallesi ihmiselle.
      Ikävä
      125
      3314

    4. Tytti Tuppurainen häpäisi Suomen epäisänmaallisella lausunnollaan USA:n ulkoministerille Rubiolle.

      https://www.is.fi/politiikka/art-2000011816267.html Miksi Tytti Tuppurainen päästetään antamaan typeriä lausuntoja noin
      Maailman menoa
      88
      3233

    5. Pystyisitkö olla

      Kanssani kaiken sotkun jälkeen? Ainakaan tunteet ei ole loppuneet
      Ikävä
      118
      1034

    6. Paras muistosi

      kaivatustasi?
      Ikävä
      56
      1000

    7. Miksi miehen on hankala ymmärtää

      Että hänen on tehtävä aloite. Niin sen kuuluu mennä luonnollisesti.
      Ikävä
      130
      932

    8. Mitä puuhailet nyt ystävänpäivänä

      nainen, kun et ole mun kanssa?
      Ikävä
      43
      716

    9. Hei kuule nainen

      Seuraavan kerran kun nähdään, puhu minulle jooko! Näin toivoo mies
      Ikävä
      37
      715

    10. Mitä sä musta oikein haluat?!

      Anna olla jo.
      Ikävä
      23
      669
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt