Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.pdf Datei aus Excel drucken

.pdf Datei aus Excel drucken
14.08.2003 14:13:07
Tobias Widmer
Guten Tag,
Ich wuerde gerne ein Pdf File (C:\beispiel.pdf) aus dem Excel heraus drucken.
Habe ein Commandbutton und eine Checkbox auf dem Worksheet, wenn die checkbox angeklickt ist und ich den butten druecke soll das File gedruckt werden.
Vielen Dank fuer die Mithilfe!!
mfg Tobias Widmer

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .pdf Datei aus Excel drucken
14.08.2003 14:38:43
Michael Scheffler
Hi,
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 lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub Open()
ShellExecute 0, "Open", strDatei, "", "", SHOWMAXIMIZED
End Sub



Gruß

Micha
AW: .pdf Datei aus Excel drucken
14.08.2003 15:32:17
Tobias Widmer
Ciao Micha
Vielen Dank Fuer die rasche Antwort.
ich kenne mich nicht sehr gut aus mit den Funktionen die du mir gschrieben hast.
Ich wuerde gerne eine Datei aus dem Internet herunterladen das auf dem c drive speichern und es anschliessend ausdrucken. Die funktion die du mir beschrieben hast oeffnet das file nur, wenn ich es richtig verstanden habe.
So sieht das Makro aus:
Private Declare 

Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL$, ByVal szFileName$, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
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 lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub Open()
Product = "C:\Internal_Fact.pdf"
sURL$ = "http://www.internet.com/file.pdf"
sLocalFile$ = Product
lResult = URLDownloadToFile(0, sURL$, sLocalFile$, 0, 0)
ShellExecute 0, "Open", Product, "", "", SHOWMAXIMIZED
Kill (Product)
End Sub



Ist es Moeglich das File direkt aus excel auszudrucken? Printout method oder so?

mfg tobias widmer
Anzeige
AW: .pdf Datei aus Excel drucken
14.08.2003 15:58:43
Michael Scheffler
Hi,
statt "Open" "Print" im Argument von Shell...
Und nach dem DownLoad würde ich noch ein DoEvents reinknallen.
Gruß
Micha

AW: .pdf Datei aus Excel drucken
14.08.2003 16:36:40
Tobias Widmer
Was meinst du mit DO event? wieso wuerdest du das noch reinknallen?
du bist mir eine riesige hilfe vielen Dank
mfg tobias

AW: .pdf Datei aus Excel drucken
14.08.2003 17:35:41
Tobias Widmer
Ciao Micha
Ich habe DoEvents eingefuegt wie du es in der lezten antwort beschrieben hast. Trotzdem kriege ich eine Fehlermeldung dass Acrobat das file nicht finden kann. was muss ich noch andern damit das makro funktioniert.
Hier das Makro:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL$, ByVal szFileName$, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
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 lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub print()
If Worksheets(").CheckBox1.Value = True Then
Product = "C:\Alpha.pdf"
sURL$ = "http://www.Internet.com/file.pdf"
sLocalFile$ = Product
lResult = URLDownloadToFile(0, sURL$, sLocalFile$, 0, 0)
ShellExecute 0, "Print", Product, "", "", SHOWMAXIMIZED
DoEvents
Kill (Product)
Mfg tobias

Anzeige

275 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
PDF aus Intranet drucken
{Boris}

Hi Leute,
ich möchte aus Excel heraus PDF-Files drucken, die sich in unserem Intranet befinden.
Bisher kann ich sie mittels Hyperlink öffnen - muss dann aber noch manuell den Druck starten. Das möchte ich gerne vermeiden, zumal ich gerne mehrere Files ausdrucken möchte.
Ein klassisc...
05.01.2009 18:47:34
Thread-ID: 1037077
13 Beiträge
Anzeige
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
Alle pdf aus einem Ordner drúcken
Gerhard

Hallo zusammen,
ich habe mir folgendes Makro aus dem Forum genommen: Sub PrintPDF() Dim sPath$, i% sPath = "C:\Documents and Settings\gglatz\Desktop\NEWFOLDER\" With Application.FileSearch .NewSearch .LookIn = sPath .Filename = "*.*" .Execute Range("B2").Value = .FoundFiles.Count .NewSearch...
13.07.2009 12:51:43
Thread-ID: 1088158
4 Beiträge
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
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
PDF aus Exceldatei drucken
Beni

Hallo miteinander
Ich möchte mehrere PDF Dateien (ohne diese zu öffnen) per Command Button anhand der Pfadangabe in der Tabelle ausdrucken.
A1 = C:\Test\x.pdf
A2 = C:\Test\y.pdf
A3 = C:\Test\z.pdf
etc.
leider finde ich den Weg nicht alleine
Vielen Dank und ein schöne...
04.09.2009 14:19:10
Thread-ID: 1100634
7 Beiträge

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
1
2
12
13
2
3
3
13
6
1
1
4
2
5
1
3
4
1
5
8
6
4
10
2