Kunde on pelastanut ennenkin pahoista pulmista jospa näin kävisi uudelleen...
Eli ongelma on seuraavanlainen:
Minulla on välilehti excelissä avoinna kutsutaan sitä vaikka "raportti"lehdeksi.
Nyt haluaisin makron joka automaattisesti menisi "tulosta" asetukseen, valitsisi sieltä tulostimeksi "Pdf-exchange 4.0" ja tallentaisi sen polkuun c:\liitteet\raportti.pdf
Tämän jälkeen palauttaisi tuon "tulosta-asetuksen" oletustulostimeksi mikä alunperin jo siinä oli.
3 h olen koettanut leikkiä mutta ei tule valmista ja pääkipu senkun kasvaa. Ongelmaksi muodostuu tuo tulostimen valinta ja palautus.
Excel pdf:ksi makro
11
1337
Vastaukset
- jakari4900
Olisiko tästä apua, vastaava tehty pdf-creatorilla. Tässä ei tarvitse vaihdella oletustulostinta. Tallentaa s
Option Explicit
Sub PrintPDF_Early()
'Option Explicit
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim Nimi As String
Nimi = Range("A7") & Range("H3") & Range("I3")
'/// Change the output file name here! ///
sPDFName = Nimi
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
'vaihda ylläoleva polku sopivaksi
'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
'Print the document to PDF
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
End Sub- Poka_33
Kiitos vaan Jakari mutta pyyhkii yli ja kovaa tuo koodi että osaisin edes sitä soveltaaa =(
- Poka_33
Kävikin hyvin. En tarvinnut kuin omaa apuani ja opin prosessissa jopa jotain. Ei vienyt kuin 5 h ja unettoman yön miettiessä.
Tällaisen kehitin ja toimii riittävän hyvin =)
Sub liite()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "PDF-XChange 4.0 porttiin Ne00:"
' vaihtaa tulostimen
ActiveSheet.PrintOut
'printtaa välilehden
Application.ActivePrinter = STDprinter
' Vaihtaa takaisin oletustulostimeksi
End Sub - Poka_33
Hmmm...Vielä olisi sen verran muokattavaa että saisin tuon pdf tallentumaan tiettyyn paikkaan; esim c:\liitetiedostot
Anyone ?- jakari4900
Mihin se nykyisin lykkää pdf:n? Jos innostusta riittää voisit kokeilla pientä muutosta, eli pari riviä lisää.
Sub liite()
Dim STDprinter As String
Dim STDprinterPath As String
'onnistuisiko tällä lisäyksellä
STDprinter = Application.ActivePrinter
sPDFPath = C:\liitetiedostot
'ja tällä polulla, tosin kansio pitänee olla valmiina
Application.ActivePrinter = "PDF-XChange 4.0 porttiin Ne00:"
' vaihtaa tulostimen
ActiveSheet.PrintOut
'printtaa välilehden
Application.ActivePrinter = STDprinter
' Vaihtaa takaisin oletustulostimeksi
End Sub
- Poka_33
Ei toimi...Alkaa herjaamaan tuota
sPDFPath = C:\liitetiedostot
hmmmm.... - Poka_33
En saa toimimaan..Joko Kunde on palannut lomalta neuvomaan kuolevaisia ?
himassahan sitä ollaan taas!
tää koodin pätkä pitäisi toimia, eli vaihtaa oletustulostimen PDF-XChangeksi ja tulostaa tiedoston ja sitten palauttaa oletustulostimen takaisin
Ei ole koneella tota PDF-XChange tulostinohjelmaa, mutta eiköhän sen omimaisuuksista voi suoraan määritellä tarvittavat polut ja oletusnimet....
eli menusta FILE/PRINT ja avautuvasta valikosta valitset ton PDF-XChange tulostimen ja klikkaa vieressä olevaa PROPERTIES nappia ja sitten vaan kattelet, jospa jossain olisi tallennusasetukset ja rukkaat ne kohilleen...
polku= C:\liitteet
nimi=raportti
moduuliin...
Dim Oletustulostin As String
Oletustulostin = Application.ActivePrinter
Application.ActivePrinter = "PDF-XChange 4.0 on Ne05:"
ActiveSheet.PrintOut
Application.ActivePrinter = Oletustulostin
End Sub
Keep EXCELing
@Kunde
- Poka_33
Ei toimi haluamallani tavalla noilla neuvoilla. Kyseessä on tiedosto jossa on monta välilehteä jotka jokainen sisältää tuon "liitetiedosto" napin. Nyt jos yhdessä teen nuo mainitsemasi asetukset, se sama kertaantuu jokaisessa välilehdessä, esim nimi: Raportti . jonku välilehden nimi voi olla esim "työtunnit".
Olisiko tuota koodia mahdollista tehdä niin että se hakisi liitetiedoston nimen joltain solulta esim A1 ja nimeäisi raportin aina sen mukaan?
Jostain syystä tuo tallennuspaikka vaikka sen asettaa "ominaisuudet" paikasta johonkin polkuun viittamaan ei toimi =( niinpä...
et kertonut aluksi, että haluat tulostaa useampia välilehtiä eri nimillä ja hakoteillä olin taas...
Ei taida onnistua tuo, koska printteri näköjään kuitenkin käyttää tallenna lomaketta tulostaessaan taulukkoa ja kokeilin syöttää siihen sitten tietoja eri tavoilla (osaan kyllä ton) ja virhettä pukkaa aina ja ohjeita ei loe mikä mattää :-(
Netistä löysin ilmaisen toimivan version sun tapaukseen( ei tartte paljoa fiksata Print Multiple Worksheets to Multiple PDF Files koodia) ja tuntui toimivan ihan jees...
koodi
http://www.excelguru.ca/node/21#MultiMulti
printteri
http://sourceforge.net/projects/pdfcreator/
Keep EXCELing
@Kunde- Poka_33
Ei oikein onnistu kun näihin "firman" koneisiin ei pysty lataamaan mitään ohjelmia =(
Noh täytynee tyytyä tuohon alkuoperäiseen koodiin. Kiitos kuitenkin !
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kaksoisliekki-ihmiset
Kun olette tavanneet kaksoisliekkinne, miltä se on tuntunut? Ole tosi utelias tietämään.3062907Milloin olette tavanneet ekaa kertaa?
Ap vastaa: Viime keväänä maalis/huhtikuun vaihteessa se varmaan oli.931761Lupaa mulle nainen rakas
Että otat minuun heti yhteyttä jos jotain sattuu. Pyydän, että et kuvittele olevasi yksin. Minä haluan olla sinulle joku641456Rikos keskellä päivää Suomussalmella
Kaksi henkilöautoa törmäsi Suomussalmella viitostiellä taajaman kohdalla, kun kuljettaja ajoi yllättäen STOP-merkin taka621441- 321435
- 851383
Oletko jo saanut apua mt-ongelmiisi?
Ja onko harhat helpottuneet? Vieläkö tunnet että sinua seurataan, ja kotonasi käydään poissa ollessasi?1791312Et voi pettää minua nainen
Niin kauan kun ei olla yhdessä. Silti tykkään sinusta. Ehkä me vielä päädymme yhteen, mutta en voi toivoa sulta nyt mitä761283Kaahailijat
Onse kumma ettei saaha mitään rotia nuihin kaahailijoihin.Mönkijöillä ja mersuilla kaahaillaan hiihtoladut ja tiet sonal611264- 531249