Speichern & Drucken

Guten Morgen Ihr lieben Helfer
Ich habe für unseren Betrieb, bei dem ich arbeite ein Bestellformular angelegt. Nun möchte ich über eine Befehlsschaltfläche eine Speicherung als PDF und den Druck auslösen. Das es machbar ist, habe ich bereits gelesen, aber ich bringe es noch nicht fertig, die Codes so zusammen zu führen, dass es funktioniert und beim testen druckt er mir immer wieder neue Blätter. Die Schaltfläche befindet sich direkt auf dem Tabellenblatt und wird nicht mit gedruckt.
Der Code den ich bis jetzt habe lautet:
With Sheets("Bestellformular")
ActiveWindow.SelectedSheets.PrintOut Copies:=2
ActiveSheet.Cells(11, 7) = ActiveSheet.Cells(11, 7) + 1
Die Idee wäre: Dass beim Drücken der Schaltfläche im Tabellenblatt "Drucken" eine MessageBox aufgeht, in der man den Dateinamen eingeben kann. Wenns geht oder klappt, natürlich auch mit dem Datum und der Kostenstellennummer (Feld A20 "Datum", Feld D20 "Kostenstelle"). Die Datei sollte als PDF gespeichert werden.
Der Pfad der Datei bleibt immer gleich und lautet:
G:\Technik\ww_Technik\Team Werkstatt\Lager\Bestellungen
Danach sollte wie oben das ganze 2mal gedruckt werden.
Ich hoffe Ihr könnt mir weiterhelfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Druck_und_PDF() Dim Pfad As String, Dateiname As String Pfad = "G:\Technik\ww_Technik\Team Werkstatt\Lager\Bestellungen\" Dateiname = Application.InputBox("Dateiname eingeben.", "Speichern als PDF") If Dateiname = "Falsch" Then Exit Sub If Not Dateiname = vbNullString Then With ThisWorkbook.Worksheets("Bestellformular") Pfad = Pfad & Dateiname & "_" & .Range("A20") & "_" & .Range("F20") & ".pdf" .PrintOut Copies:=2 .Cells(11, 7) = .Cells(11, 7) + 1 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End With Else MsgBox "Fehler: Es wurde kein Dateiname vergeben." End If End Sub

Public Sub Druck_und_PDF() Dim Pfad As String, Dateiname As String Pfad = "G:\Technik\ww_Technik\Team Werkstatt\Lager\Bestellungen\" Dateiname = Application.InputBox("Dateiname eingeben.", "Speichern als PDF") If Dateiname = "Falsch" Then Exit Sub If Not Dateiname = vbNullString Then With ThisWorkbook.Worksheets("Bestellformular") Pfad = Pfad & Dateiname & "_" & .Range("A20") & "_" & .Range("F20") & ".pdf" .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False .PrintOut Copies:=2 .Cells(11, 7) = .Cells(11, 7) + 1 End With Else MsgBox "Fehler: Es wurde kein Dateiname vergeben." End If End Sub

Hallo Marc,
mal ein paar Anmerkungen:
1. Bitte vorher Gedanken machen wie das Ergebnis aussehen soll. Es ist nichts lästiger als eine Lösung gemäß Vorgaben anzubieten um dann zu hören "Ich will es doch lieber so und nicht so."
2. Dass dein Versuch in die Hose geht liegt u.A. daran, dass du die falschen Zellen ansprichst. Bei Cells(1, 20) ist der erste Zahlenwert in der Klammer die Zeile und der zweite Zahlenwert die Spalte. Bei diesem Beispiel sprichst du also die Zelle T1 an. Da die aber in deiner Tabelle nicht benutzt wird und keinen Wert hat, wird dir im Dateinamen an der entsprechenden Stelle dann auch nichts ausgegeben.
3. Damit kommen wir dann auch dazu, dass das aber der Helfer nicht weiß, dass du hier mit der Zelle auf dem Holzweg bist, weil du nämlich keine Datei mit hochgeladen hast. Ich konnte das nur deshalb bemerken, weil ich die Datei aus deinem vorherigen Beitrag hatte.
4. Zudem willst du dann noch die Zellen F11 und E20 ansprechen. Aber auch diese Zellen haben keinen Inhalt. Du hast dort Label platziert, also willst du den Inhalt der entsprechenden Label. Aber auch das kann der Helfer, mangels Datei, nicht bemerken -siehe Punkt 3
5. Also bitte zukünftig wenn irgend möglich Fragen mit entsprechender Beispieldatei.
Jetzt zum eigentlichen Problem. Teste mal das hier.

Public Sub Druck_und_PDF()
Dim Pfad As String, Dateiname As String
Pfad = "G:\Technik\ww_Technik\Team Werkstatt\Lager\Bestellungen\"
With ThisWorkbook.Worksheets("Bestellformular")
Dateiname = .Cells(20, 1) & "_" & .Label7.Caption & "_" _
& .Cells(11, 6) & .Label8.Caption & .Cells(11, 7) & .Cells(11, 8) & ".pdf"
Pfad = Pfad & Dateiname
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.PrintOut Copies:=2
.Cells(11, 7) = .Cells(11, 7) + 1
End With
End Sub

Aber Achtung: Da ist keine Prüfung drin, ob die Zellen, die du für die Zusammenstellung des Dateinamens brauchst, einen Wert enthalten. Sollten die Zellen leer sein, dann hast du auch nichts im Dateinamen.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern & Drucken

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread