Autor
|
Thema: PDF aus Excel mit Hilfe von Hyperlinks drucken (2954 mal gelesen)
|
Nostradamus Mitglied Techniker
Beiträge: 181 Registriert: 08.11.2006 INV-2019 INV-Publisher 2016 VaultWorkgroup-2019 Windows 7 Professional Intel(R)Xeon(R)CPU E3-1280 V5 3,7GHz 3,7GHz 32GB RAM NVIDIA Quadro M4000
|
erstellt am: 06. Feb. 2017 14:57 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, kann man aus einem Excel Tabelle die als Hyperlink verknüpfte PDF-Dateien mit einem Click ausdrucken. Wenn ja, kann jemand mir bitte bei so einem Code behilflich sein. Ich habe nur Anfänger Kenntnisse mit VB. Herzlichen Danke !
------------------ Zeige dich, wie du bist oder sei, wie du dich zeigst. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001
|
erstellt am: 06. Feb. 2017 15:16 <-- editieren / zitieren --> Unities abgeben: Nur für Nostradamus
servus, Interessantes Vorhaben..... mit Google excel vba print file stoßt man auf sowas http://www.ozgrid.com/forum/showthread.php?t=146904Code: Option Explicit Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Public Sub PrintFile(ByVal strPathAndFilename As String) Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0) End Sub Sub Test() PrintFile ("C:\Test.pdf") End Sub
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nostradamus Mitglied Techniker
Beiträge: 181 Registriert: 08.11.2006 INV-2019 INV-Publisher 2016 VaultWorkgroup-2019 Windows 7 Professional Intel(R)Xeon(R)CPU E3-1280 V5 3,7GHz 3,7GHz 32GB RAM NVIDIA Quadro M4000
|
erstellt am: 06. Feb. 2017 16:04 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|