PDF-tulostimen valinta

Tanja25

Osaisikko joku neuvoa/sanoa mikä mättää seuraavassa??

Yritän nauhoittaa koodia joka valitsee tulostimeksi PDF-tulostimen, muuttaa sen asetuksia siten että työkirjassa valittua aluetta ei tallenneta mihinkään vaan se lähetetään sähköpostitse.

Eli homma menee näin, käyttäjä painaa nappia "lähetä PDF", aiemmin nauhoitettu makro valitsee PDF-tulostimen, muuttaa valitun alueen PDF-muotoon, avaa oletussähköposti-ohjelman (käyttäjä valitsee osoitteen) ja lähettää tiedoston.

Tämä onnistuu mutta ongelmana on se että makro ei "pysy kasassa". Kun tallennan ja suljen työkirjan, ja myöhemmin avaan uudelleen, ajan makron niin se muuttaa kyllä alueen pdf-muotoon jne mutta EI avaa oletussähköpostia, vaan aikoo tallentaa tiedoston. Onko tässä makrossa jotakin vikaa tms että saisin sen pitämään nuo asetukset että se avaisi sähköpostin jne.

koodi;

Sub PDF()
'
' PDF Makro
'
'
ActiveWindow.SmallScroll Down:=18
Range("RANGE").Select
ActiveWindow.SmallScroll Down:=-51
Application.ActivePrinter = "PDF-XChange 3.0 porttiin xxxx:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,1,""PDF-XChange 3.0 porttiin xxxx:"",,,,FALSE)"
ActiveWindow.SmallScroll Down:=-3
Range("A26").Select
ActiveWindow.SmallScroll Down:=-39
Application.ActivePrinter = "\\oletustulostin porttiin xxxx:"
Range("A26").Select
End Sub

1

138

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • onhan siinä paljonkin vikaa...
      ei toi tee muuta kuin tulostaa... eli tietenkin kysyy polkua jne.
      eikä koodisa ole mitään sähkärin lahettämistäkään-ei nauhuri nauhoita noita juttuja...

      vaatii koodaajaa...

      ,-) Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      275
      3878
    2. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      73
      3466
    3. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      145
      2486
    4. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      56
      2266
    5. Jätän tähän viesti kaivatullesi

      jos jotain jäänyt sanomatta. 👇
      Ikävä
      154
      1872
    6. Olet kyllä erittäin huono yhdistelemään pisteitä.

      Etkä vain sinä vaan kaikki teilläpäin.
      Ikävä
      34
      1687
    7. Onko jo liian "vanha" vai mitä mieltä olet? 57-v. saa raakaa tekstiä tv:ssä

      The Summit Suomi tv-ohjelmassa 57-vuotiaan Maritan jaksamista kyseenalaistettiin iän takia. Onko tässä iässä jo liian "v
      50 plus
      30
      1258
    8. Etkö sitten itse

      ole koskaan ylittänyt rajaa?
      Ikävä
      29
      1233
    9. Uskotko että vielä

      Kohtaisimme?
      Ikävä
      23
      1146
    10. Mitä järkeä iskeä

      Varattua ja yrittää saada sitä eroamaan
      Ikävä
      36
      1122
    Aihe