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
Macro PDF teko
PDF_Macromies
5
304
Vastaukset
- 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
Kuhmossa rallit alkoi ennen aikojaan
Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat331299Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan
Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar691095- 104936
41000 kavallettu rahaa
uutisoi Kaleva ja iltasanomat vuosina 2020-2022 välisenä aikana hävinnyt toi summa tuomittu nainen 1971 syntynyt.42879Kerro minulle
Miksi teit niinkuin teit? Miksi kielsit tunteesi minua kohtaan. Miksi et halunnut että tiedän oikeasti mitä tunnet. Etkö56729- 42716
- 48693
Fantasioista
Suurimmalla osalla meistä on jonkinlaisia eroottisia fantasioita. Miten sinä suhtaudut fantasioihin? Ruokitko niitä vai94672Se riisuu suosimasi paatoksen, paljastaa egosi tyhjäksi
Idän fisosofian vihaaja kirjoitti: "Muuten tämä idän-uskontojen mekaniikka hävitää ja hautaa tästä kaiken hyvän paatoks302656- 29635