Faxdrucker in vbacode einfügen
17.09.2013 16:04:47
Bernd
komme mal wieder nicht weiter und brauche Hilfe.
Mit nachfolgenden Code lese ich aus UF TextBoxen Werte in Wordvorlage ein. Jetzt versuche ich nachdem das Dokument abgespeichert ist es wieder zu öffnen an den Faxdrucker zu übergeben und bekomme das nicht alleine hin.
Wer kann mir helfen?
Hier der Code:
Private Sub cmd_Fax_Kündigung_Click()
Dim wrdApp, wrdDoc, UserForm
On Error GoTo ErrorExit
Dim Pfad As String
Dim Dateiname As String
Application.ScreenUpdating = False
Set UserForm = frm_Schriftwechsel_KD
Pfad = ThisWorkbook.Worksheets("Hilfstabelle").Range("B18")
Dateiname = TextBox1.Value & "_" & TextBox2.Value & "_" & TextBox3.Value & "_" & TextBox24.Value
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add("D:\Firma\Vorlagen\Briefe\KündigungsFax.dotx")
wrdDoc.FormFields("Firma").Result = TextBox2.Value
wrdDoc.FormFields("Straße").Result = TextBox5.Value
wrdDoc.FormFields("FaxNr").Result = TextBox8.Value
wrdDoc.FormFields("PLZ").Result = TextBox5.Value
wrdDoc.FormFields("Ort").Result = TextBox6.Value
wrdDoc.FormFields("Kunde").Result = TextBox1.Value
wrdDoc.FormFields("VSNR").Result = TextBox3.Value
wrdDoc.FormFields("Ablauf").Result = TextBox4.Value
wrdDoc.FormFields("Datum").Result = Date
MsgBox "Kündigungsfax wurde erstellt und gespeichert"
'TextBox8.Copy
'Application.ActivePrinter = "FRITZfax Drucker auf Ne03:"
wrdDoc.SaveAs Pfad & Dateiname & ".doc"
'hier soll die Druckanweisung stehen
wrdDoc.Close
ErrorExit:
wrdApp.Quit
Set UserForm = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ScreenUpdating = True
End Sub
Bernd