Excel pdf:ksi makro

Poka_33

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.

11

1337

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Kaksoisliekki-ihmiset

      Kun olette tavanneet kaksoisliekkinne, miltä se on tuntunut? Ole tosi utelias tietämään.
      Ikävä
      283
      2477
    2. Milloin olette tavanneet ekaa kertaa?

      Ap vastaa: Viime keväänä maalis/huhtikuun vaihteessa se varmaan oli.
      Ikävä
      89
      1572
    3. Osta säkin sellainen

      Osta säkin sellainen makkaratakki
      Ikävä
      29
      1352
    4. Lupaa mulle nainen rakas

      Että otat minuun heti yhteyttä jos jotain sattuu. Pyydän, että et kuvittele olevasi yksin. Minä haluan olla sinulle joku
      Ikävä
      62
      1328
    5. Rikos keskellä päivää Suomussalmella

      Kaksi henkilöautoa törmäsi Suomussalmella viitostiellä taajaman kohdalla, kun kuljettaja ajoi yllättäen STOP-merkin taka
      Suomussalmi
      57
      1316
    6. Et 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ä
      Ikävä
      76
      1233
    7. Oletko jo saanut apua mt-ongelmiisi?

      Ja onko harhat helpottuneet? Vieläkö tunnet että sinua seurataan, ja kotonasi käydään poissa ollessasi?
      Ikävä
      179
      1232
    8. Olit nainen vanhentunut

      ei ole aika ollut armelias sulle.
      Ikävä
      74
      1148
    9. Menetit hyvän miehen.

      Paluuta ei ole. 😱
      Ikävä
      53
      1139
    10. Autoilijan epäillään ajaneen useiden ihmisten päälle Ylöjärvellä Mikkolantiellä

      Suora lähetys kello 10.40: Ilves/2 isännöi Tampere Unitedia harjoitus­ottelussa – katso peli selostettuna Ihmiset: Toimi
      Ylöjärvi
      40
      1092
    Aihe