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

276

    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. Niin surullinen

      onnettomuus taas. Voimia ihan kaikille läheisille,kavereille ja kouluun 🙏
      Lapua
      221
      5071
    2. MIksi suurin osa persuista on alkoholisteja?

      Tätä jäin pohdiskelemaan....
      Maailman menoa
      38
      3398
    3. 35
      2918
    4. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      141
      2783
    5. Paloautoko se oli kolarissa Juntusrannan risteyksessä?

      Oli kuva paloautosta nettijutussa.
      Suomussalmi
      25
      2448
    6. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      68
      2276
    7. Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!

      Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää
      Suomalaiset julkkikset
      19
      2178
    8. Mitä tapahtuu?

      Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?
      Outokumpu
      31
      1820
    9. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      41
      1762
    10. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      83
      1438
    Aihe