Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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"


 

 

Mehrbereichsauswahl auf eine Seite drucken.
  

Sichtbare Blätter drucken
  

 



Automatische Datumformatierung unterdrücken
  

Bestätigung beim Speichern unterdrücken.
  

 



Kopfzeile in Buchform drucken
  

In einem Dialog ausgewählte Spalten drucken
  

 



Codeblatt mit Rändern drucken
  

Mehrfachauswahl im Hoch- und Querformat drucken
  

 



Tabellenblätter in umgekehrter Reihenfolge drucken
  

Alle Dateien eines Verzeichnisses drucken
  

 



Leere Zeilen beim Drucken unterdrücken
  

Nummern vorgeben und drucken
  

 



Zeilen mit leeren Formeln beim Druck unterdrücken
  

Schmale Spalten nebeneinander drucken
  

 



Videokassettenaufkleber drucken
  

Die Druckseite drucken, in der sich der Cursor befindet
  

 



Bereiche in Abhängigkeit eines Zellinhaltes drucken
  

Aus Excel heraus ein Worddokument drucken
  

 



Nur Zeilen mit einer "2" drucken
  

Jede zweite Spalte drucken
  

 



Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen
  

Tabelle nacheinander filtern und drucken
  

 



Text aus UserForm-TextBox drucken
  

Blatt auswählen und Zellen nacheinander drucken
  

 



Den in einer Zelle genannten Bereich eines Blattes drucken
  

Kopfzeile nur auf erstem Blatt drucken
  

 



Tabellenblatt mit dem aktuellen Monatsnamen drucken
  

Diagramm erstellen, in UserForm anzeigen und drucken
  

 



Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös
  

Markierten Bereich drucken
  

 



UserForm drucken
  

Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen
  

 



Zeilen nicht drucken, wenn Spalte C leer oder 0
  

Abfrage vor Start- und Enddatum eines zu druckenden Bereiches
  

 



Werte in Word-Dokument einlesen und dieses Drucken
  

Nur die letzte Seite drucken
  

 



Blatt nur drucken, wenn Zeichenfolge im Namen
  

Spendenbescheinigungen als Serienbrief drucken
  

 



Drucken der UserForm im Querformat mit Kopfzeile
  

Mit variablem oberer und unterer Rahmenlinie drucken
  

 



Nur Wert eines Kombinationsfeldes, nicht das Feld drucken
  

Drucker auswählen und nach dem Drucken zurücksetzen
  

 



Daten sortieren und bedingt drucken
  

Kopf- und Fußzeileneintrag vor dem Drucken
  

 



Drucken aus einem DialogSheet