Excel pdf:ksi makro

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

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

Hmmm...Vielä olisi sen verran muokattavaa että saisin tuon pdf tallentumaan tiettyyn paikkaan; esim c:\liitetiedostot


Anyone ?

Ei toimi...Alkaa herjaamaan tuota
sPDFPath = C:\liitetiedostot

hmmmm....

En saa toimimaan..Joko Kunde on palannut lomalta neuvomaan kuolevaisia ?

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

Ei oikein onnistu kun näihin "firman" koneisiin ei pysty lataamaan mitään ohjelmia =(

Noh täytynee tyytyä tuohon alkuoperäiseen koodiin. Kiitos kuitenkin !