Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF erstellen und gleich drucken

PDF erstellen und gleich drucken
21.07.2022 11:02:26
Pepi
Hallo zusammen
Ich habe ein Word (vermutlich gleich wie bei Excel), das ich als PDF speichere und dann das PDF gleich drucken will. (ev mit Druckerauswahl)
zB PDF-Datei.pdf.printout geht leider nicht
Leider gibt da der Makrorecorder keinen Code.
Auf dem Web habe ich auch nichts brauchbares gefunden.
Dank für eure Hilfe
lg Pepi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF erstellen und gleich drucken
21.07.2022 11:44:54
Nepumuk
Hallo Pepi,
teste mal:

Option Explicit
Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
Private Const SW_HIDE As Long = 0
Public Sub Test2()
Dim strOldPrinter As String, strNewPrinter As String
strOldPrinter = Application.ActivePrinter
If Application.Dialogs(xlDialogPrinterSetup).Show Then
strNewPrinter = Chr$(34) & Left$(Application.ActivePrinter, InStr(1, Application.ActivePrinter, "Auf", vbTextCompare) - 2) & Chr$(34)
Call ShellExecuteA(0, "PRINTTO", "G:\Eigene Dateien\Eigene PDF\ASCII-Tabelle.pdf", strNewPrinter, vbNullString, SW_HIDE)
Application.ActivePrinter = strOldPrinter
End If
End Sub
ich versteh allerdings nicht, warum du nicht einfach das Word-Dokument druckst.
Gruß
Nepumuk
Anzeige
AW: PDF erstellen und gleich drucken
21.07.2022 18:03:21
Pepi
Danke Nepumuk
Der Druckerdialog für Word habe ich dank deinem Script selber rausgefunden - geht aber nicht wenn PDF offen ist - kein Problem, mache ich halt CTRL + P
Ein PDF als Broschüe drucken ist viel einfacher als ein Word - deshalb dieser Aufwand.
geniesse zwischen durch auch den heissen Sommer nicht nur das kühle Bier am PC - smile
lg Pepi

111 Forumthreads zu ähnlichen Themen

PDF Printer via VBA anwählen
Henner

Hi,
ich möchte aus einer UserForm heraus eine Tabelle als PDF 'drucken', habe FreePDF installiert. Dafür habe ich einem Button in der UF das folgende Makro zugewiesen:
Sub print_pdf() Sheets("print").Select Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets...
04.09.2008 14:48:00
Thread-ID: 1007425
2 Beiträge
Anzeige
bestimmte PDF-Seite ausdrucken
sepp

Hallo
habe aus dem Forum ein Programm zum Ausdrucken
von Pdf Dateien:
Public Product
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal...
18.11.2008 20:15:18
Thread-ID: 1025777
3 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Anzeige
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
2
2
5
13
4
3
2
2
8
9
3
3
1
3
2
3
5
3
12
4
5
1
3