Thema Datum  Von Nutzer Rating
Antwort
12.11.2010 09:36:03 Sebastian
NotSolved
12.11.2010 10:13:38 Severus
NotSolved
12.11.2010 10:19:54 Sebastian
NotSolved
Blau Aw:PDF druck Makro,Speicherort,Dateiname aus Ze
 12.11.2010 10:57:42 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
12.11.2010 10:57:42		 Views:
2007		 Rating:
     
Antwort:
  Ja
Thema:
Aw:PDF druck Makro,Speicherort,Dateiname aus Ze
Sebastian schrieb am 12.11.2010 10:19:54:

Severus schrieb am 12.11.2010 10:13:38:

Sebastian schrieb am 12.11.2010 09:36:03:

Hallo, ich finde einfach nichts hilfreiches, oder für mich verständliches im Netz. Ich hoffe hier kann mir wer helfen.

Folgendermaßen:

Vom ersten Registerblatt "Eingabe" wird ein Button mit Makro versehen gedrückt, damit die seite von Registerblatt "Produktblatt" als PDF gedruckt bzw. wird. Funktioniert auch manuell.

Wie soll es sein?:

beim PDF druck soll die zu speichernde Datei mit dem Namen aus Zellwert C6;K1;M1;O1 in das Verzeichnis P:\Vertrieb allgemein\Schacht Eingabe\Ablage PDF gespeichert werden.
Ich hoffe es kann mir jemand helfen.

Hier das vorhandene Makro:

***version ist EXCEL 2003

Sub PDF_Druck_Produktblatt_Komplett()
'
' PDF_Druck_Produktblatt_Komplett Makro
' Makro am 10.11.2010 von SB-BWM aufgezeichnet
'

'

Dim Drucker As String
Drucker = ActivePrinter

Sheets("Produktblatt").Select
Application.ActivePrinter = "eDocPrintPro auf Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"eDocPrintPro auf Ne04:", Collate:=True
Sheets("Eingabe").Select

ActivePrinter = Drucker

End Sub

Zunächst: was heißt "aus Zellwert C6;K1;M1;O1"?
alt Strind C6_K1_M1_O1 oder wie? Also
P:\Vertrieb allgemein\Schacht Eingabe\Ablage PDF\C6_K1_M1_O1.pdf ?
Und zweitens: Direkt Abspeichern geht z.B. mit PDFCreator. Bei anderen müßte man erst im Netz recherchieren wie die VBA-Befehle lauten.
Severus

Ich wollte nur erklären, aus welchen Zellen sich der dateiname zusammensetzen soll, OK?
Na wie sieht es denn aus wenn man den PDF Creator dafür nimmt?

Wollte auch nur erklärt haben, wie Du den Namen aus diesen Feldern zusammensetzen willst.
PDFCreator installieren.
In der Arbeiztsmappe über Extras->Verweise einen Verweis auf PDF-Creator setzen.
Dann sollte das etwa so aussehen:

Sub pdferstellen()
Dim pdfJOB As New PDFCreator.clsPDFCreator
Dim pdfNAME As String
Const pdfPFAD As String = "P:\Vertrieb allgemein\Schacht Eingabe\Ablage PDF\"
On Error Resume Next
With ThisWorkbook
.Sheets("Produktblatt").Select
With ActiveSheet
Application.ActivePrinter = "PDFCreator auf Ne06:": DoEvents '<-- Hier Deinen Drucker eintragen!!!
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Err.Clear
ActiveWindow.View = xlNormalView
pdfNAME = .Range("C6") & "_" & .Range("K1") & "_" & .Range("M1") & "_" & .Range("O1") & ".pdf"
Application.StatusBar = "Erstelle " & pdfNAME
With pdfJOB
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "PDFCreator konnte nicht initialisiert werden.", vbCritical + _
vbOKOnly, "Fehler PDFCreator..."
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = pdfPFAD
.cOption("AutosaveFilename") = pdfNAME
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
ActiveWorkbook.PrintOut
Do Until pdfJOB.cCountOfPrintjobs = 1
DoEvents
Loop

pdfJOB.cPrinterStop = False

Do Until pdfJOB.cCountOfPrintjobs = 0
DoEvents
Loop
pdfJOB.cClose

End With
End With
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.11.2010 09:36:03 Sebastian
NotSolved
12.11.2010 10:13:38 Severus
NotSolved
12.11.2010 10:19:54 Sebastian
NotSolved
Blau Aw:PDF druck Makro,Speicherort,Dateiname aus Ze
 12.11.2010 10:57:42 Severus
NotSolved