DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT=Courier New][FONT=Courier New]DoCmd.OutputTo [COLOR=red]acTable[/COLOR], "Talonuzun_adı", "RichTextFormat(*.rtf)", "", False, "", 0[/FONT]
[/FONT]
Private Sub Komut17_Click()
Dim wdApp As Word.Application, wdDoc As Word.Document
Dim docmd As docmd
Set wdApp = CreateObject("Word.Application")
Set wdDoc = CreateObject("Word.Document")
wdDoc.SaveAs ("test7899.doc")
With wdDoc.Content
.InsertAfter "Gökhan"
docmd.OutputTo acOutputTable, "Satislar", "RichTextFormat(*.rtf)", "", False, "", 0
End With
wdApp.Activate