Print in Pdf und Speicherabfragefenster umgehen
15.11.2006 10:39:39
Nico
Folgendes, ich möchte nicht mehr gefragt werden, unter welchem Speichernamen und Ort ich das File, welches einem Ausdruck in eine Datei ähnlich PDF entspricht, speichern möchte.
Der Speicherort und -name sollten durch eine Abfrage in der Exceldatei (Zellen) vorgegeben werden. Der Aufruf erfolgt über einen normalen Button in der Datei.
Hoffe auf Hilfe und Danke euch schon jetzt!
Grüße Nico
Sub Speichern()
Application.ActivePrinter = "Microsoft Office Document Image Writer auf Ne00:"
Dim Pfad As String, Dateiname As String
Pfad = ("D:\Test\") & [Phad].Value 'Path
SaveString = [datname].Value
Sheets("Tabelle1").PrintOut Copies:=1, _
ActivePrinter:="Microsoft Office Document Image Writer auf Ne00:", Collate:=True
Hier öffnet sich jetzt die Abfrage wo und unter welchem Namen ich speichern möchte! Wie und bzw. kann ich das umgehen?
? ThisWorkbook.SaveAs Filename:=Pfad & SaveString & "_" & Date & ".xls"
? Application.DisplayAlerts = False
? Application.DisplayAlerts = True
End Sub