Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

PDF Datei aus Excel drucken

Betrifft: PDF Datei aus Excel drucken von: Zwergel
Geschrieben am: 25.08.2004 21:14:45

Hallo,


ich habe hier im Forums-Archiv einen Beitrag gefunden, der ein ähnliches Problem beschreibt. Dort wird eine Downloaddatei aus dem web geladen und dann ausgedruckt.
Ich komme mit der Umsetzung des dortigen Codes nicht klar.

Wohin muß ich die Deklaration schreiben in meiner Datei und wohin kommt der andere Code (Diese Arbeitsmappe oder in normales Modul).

Hoffe, es kann jemand einen Tipp dazu geben.

Danke
Gruß :)
Michael

  


Betrifft: AW: PDF Datei aus Excel drucken von: andre
Geschrieben am: 25.08.2004 21:16:33

Hallo Michael,
dann musst Du auch mal den Link zu dem Beitrag einstellen.


  


Betrifft: AW: PDF Datei aus Excel drucken von: Zwergel
Geschrieben am: 25.08.2004 21:29:43

Hallo Andre,

sorry, wollte keine unnütze Arbeit machen.
Hier die Links:

https://www.herber.de/forum/archiv/292to296/t294754.htm und
https://www.herber.de/forum/archiv/292to296/t294868.htm

Da hatte der Fragesteller einen zweiten Thread geöffnet.

Grüße
Michael


  


Betrifft: AW: PDF Datei aus Excel drucken von: andre
Geschrieben am: 25.08.2004 21:37:55

Hallo Michael,
mal zu dem zweiten Link:
1. in ein normales Modul
2. Aufpassen, hier wird der Code zerrissen. Private Declare ... ist i.O., Public Declare gehört auch in eine Zeile
3. Das mit dem Open wird angemosert, nimm mal DownPrint oder was anderes, was kein VBA-Befehl ist.


  


Betrifft: AW: PDF Datei aus Excel drucken von: Zwergel
Geschrieben am: 26.08.2004 13:09:49

Hallo Andre,

danke für den Hinweis.
Habe es jetzt mal so probiert und es klappt.

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 Drucken()
Product = "D:\Daten\Winword\Texte\DR allgGenehmigung AP-West.pdf"
ShellExecute 0, "Print", Product, "", "", SHOWMAXIMIZED
End Sub


Es bleibt jedoch das Adobe Programmfenster geöffnet. Hast Du noch einen Tipp, wie das Fenster am Ende geschlossen werden könnte?? Mit Parameter Close und Schließen ging es nicht.

Gruß
Michael


  


Betrifft: AW: PDF Datei aus Excel drucken von: andre
Geschrieben am: 26.08.2004 18:35:54

Hallo Michael,
mit geringen VBA-Kenntnissen wird das etwas kompliziert.
Schaue mal hier
http://www.activevb.de/tipps/vb6tipps/tipp0147.html
diesen Part
Private Sub Form_Load()
ersetzen mit
Private Sub Userform_initialize()
und hier
Task = Shell("notepad.ex e", vbNormalFocus)
muss ich erst mal testen, ob ich das
ShellExecute 0, "Print", Product, "", "", SHOWMAXIMIZED
reinbekomme...


  


Betrifft: AW: PDF Datei aus Excel drucken von: beat
Geschrieben am: 26.08.2004 20:40:03

Michael,

verwende in der ShellExecute - Zeile SW_HIDE und das Adobefenster geht nicht mal auf.

Gruss
Beat

Option Explicit
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 enShellExecuteShowCmd) As Long

Sub Drucken()
Dim Product As String
Product = "W:\rechnung_pdf\Kontrolle der Datensicherung.pdf"
ShellExecute 0, "Print", Product, "", "", SW_HIDE
Option Explicit
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 enShellExecuteShowCmd) As Long

Sub Drucken()
Dim Product As String
Product = "W:\rechnung_pdf\Kontrolle der Datensicherung.pdf"
ShellExecute 0, "Print", Product, "", "", SW_HIDE
End Sub



  


Betrifft: AW: PDF Datei aus Excel drucken von: Zwergel
Geschrieben am: 27.08.2004 19:42:12

Hallo Beat,

danke für den Tipp. Werde ich direkt am Montag mal testen.

Grüße und schönes Wochenende
Michael


  


Betrifft: AW: PDF Datei aus Excel drucken von: andre
Geschrieben am: 28.08.2004 08:51:36

Hallo Michael,
schaue auch mal hier:
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/messages/475998.html


 

Beiträge aus den Excel-Beispielen zum Thema "PDF Datei aus Excel drucken"