Masaüstüne dosyayı nasıl aktarırım?

Dostlar herkese merhaba;

Access formundaki bilgileri "Word Aktar" düğmesine tıkladığımda, word dosyası belgelerime gidiyor.

Masaüstü adresim:
C:\Users\ABC\Desktop\

Aşağıdaki kod üzerinde nasıl bir değişiklik gerekiyor?


Private Sub Komut25_Enter()
On Error GoTo hata

Dim stDocName As String
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[isletmeninadi].Value
stDocName = "belge1"

DoCmd.OpenReport stDocName, acViewPreview, , "[sno]=[forms]![tablo1]![sno]"
DoCmd.OutputTo acOutputReport, "Belge1", _
acFormatRTF, SID & ".rtf", False
DoCmd.Close acReport, "belge1"


hata: Exit Sub
End Sub

İlgi ve yardımınız içn teşekkürler.

şeklindeki satırı, aşağıdaki şekilde değiştirip deneyin:

Sayın Seruz;

Hocam günaydın.

İlgi ve yanıtınız için teşekkür ederim.

Sevgi ve saygılar..