|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Range als PDF drucken (und automatisch per Email verschicken) |
11.03.2020 17:34:17 |
Niklas |
|
|
|
11.03.2020 18:25:23 |
Gast68839 |
|
|
|
11.03.2020 18:42:05 |
Gast7777 |
|
|
|
12.03.2020 10:16:07 |
Niklas |
|
|
|
11.03.2020 18:46:15 |
Mase |
|
|
|
12.03.2020 10:23:27 |
Niklas |
|
|
|
12.03.2020 10:26:38 |
Gast67183 |
|
|
|
12.03.2020 13:05:52 |
Niklas |
|
|
Von:
Niklas |
Datum:
11.03.2020 17:34:17 |
Views:
791 |
Rating:
|
Antwort:
|
Thema:
Range als PDF drucken (und automatisch per Email verschicken) |
|
Hallo zusammen,
Das ist mein Code: funktioniert aber leider nicht. Dateiname wird erst geschrieben nachdem das Dialogfeld geschlossen wurde.
Function waitTime(ByVal milliSeconds As Double)
Application.Wait (Now() + milliSeconds / 24 / 60 / 60 / 1000)
End Function
Sub Drucken()
Dim strName As String
strName = Application.ThisWorkbook.Name
Application.Workbooks(strName).Worksheets("Sheet1").PrintOut
waitTime (2000)
SendKeys ("Dateiname")
End Sub
ich hoffe mir kann jemand helfen. Ich versuche einen bestimmten Bereich
als PDF zu speichern und per Mail zu versenden. Aus bestimmten Gründen
ist das Excel Plug in zum exportieren und drucken nciht installiert,
sondern das von Gaahio PDF. Deswegen sind die standardbefehle nicht
nutzbar. Des Weiteren ist es keine Option diese zu installieren.
Über Application.Workbooks(strName).Worksheets(Sheet1).PrintOut
könnte ich das Sheet als PDf drucken, muss aber den Speicherort und
Namen selbst wählen - auch keine Option. Mein Ansatz wäre das über
Sendkeys automatisch zu benennen und speichern zu lassen aber die
Befehle werden nciht im Dialogmenü ausgeführt, sondern erst wieder wenn
der Speichervorgang abgeschlossen ist. Hat jemand einen Lösungsansatz?
Entweder wie ich per Sendkeys dort die Sachen speichern kann oder aber
ein ganz Anderer? Wie kann ich denn den Speicher-Dialog ansprechne um dort Sendkeys zu verwenden?
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Range als PDF drucken (und automatisch per Email verschicken) |
11.03.2020 17:34:17 |
Niklas |
|
|
|
11.03.2020 18:25:23 |
Gast68839 |
|
|
|
11.03.2020 18:42:05 |
Gast7777 |
|
|
|
12.03.2020 10:16:07 |
Niklas |
|
|
|
11.03.2020 18:46:15 |
Mase |
|
|
|
12.03.2020 10:23:27 |
Niklas |
|
|
|
12.03.2020 10:26:38 |
Gast67183 |
|
|
|
12.03.2020 13:05:52 |
Niklas |
|
|