Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Free-Pdf drucken mit Dateiname

Free-Pdf drucken mit Dateiname
Heinz
Hallo Leute
Ich möchte "Tabelle1"mit Free-Pdf Drucker versenden. Dabei sollter der Dateiname von Tab1.A1& " " & H1 angeführt werden.
ZB. A1= Sperrliste H1 = Datum von Heute Ergebniss sollte lauten "Sperrliste 04.02.2011.pdf"
Momentan habe ich unteren Code zur Druckerauswahl.
Habe Free-PDF XP Vers.3.24
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Option Explicit
Sub drucken()
Dim Nein As Boolean
Nein = Application.Dialogs(xlDialogPrint).Show
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Free-Pdf drucken mit Dateiname
05.02.2011 16:08:44
Armin
Hallo Heinz,
wie das mit dem Free-PDF XP funktioniert weiß ich nicht. Aber ich könnte die eine Lösung senden die mit dem PDFCreater funktioniert. Selbigen bekommst Du im Netz.
Gruß Armin
AW: Free-Pdf drucken mit Dateiname
06.02.2011 01:48:37
Heinz
Hallo Armin
Recht herzlichen Dank für deine angebotene Hilfe.
Leider ist die Datei für unseren Firmen PC.
Hier möchte oder darf ich keine anderen Pogramme raufspielen.
Nochmals Danke
Heinz
Anzeige
Free-Pdf drucken mit Dateiname
06.02.2011 13:13:13
Anton
Hallo Heinz,
probier sowas:
Code:

Sub mit_freePDF_XP_Drucken()
  Const cstrFreePdf = "C:\Programme\FreePDF_XP\freepdf.exe"  'anpassen
  Dim strFileName As String, strCommand As String, WshShell As Object    
  Set WshShell = CreateObject("WScript.Shell")  
  With Tabelle1
    strFileName = "C:\" & Range("A1") & "_" & .Range("H1") & ".ps"
    .PrintOut ActivePrinter:="FreePDF XP", PrintToFile:=True, PrToFileName:=strFileName  
  End With  
  strCommand = Chr(34) & cstrFreePdf & Chr(34) & " " & strFileName & " /a /d /x"
  WshShell.Run strCommand, 1, True
  Set WshShell = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Free-Pdf drucken mit Dateiname
06.02.2011 18:51:30
Heinz
Hallo Anton
Du bist genial !!
Recht herzlichen Dank.
Gruß
Heinz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige