(20-02-2020, 17:40)Ahmet51 demiş ki:

Visual Basic

Function Klsyap()
Dim KlsYol, KlsYol1 As String
KlsYol = "D:\DSS_YIL_SONU_HESAP_CETVELLERİ\"
If Len(Dir(KlsYol, vbDirectory)) = 0 Then MkDir KlsYol
KlsYol1 = "D:\DSS_YIL_SONU_HESAP_CETVELLERİ\RAPORLAR"
If Len(Dir(KlsYol1, vbDirectory)) = 0 Then MkDir KlsYol1
Klsyap = KlsYol1
End Function

Visual Basic

If yzdrsecenek = 1 Then
            DoCmd.OpenReport "Kasa_Sayım_Tutanağı", acViewPreview
        ElseIf yzdrsecenek = 2 Then
            DoCmd.OutputTo acOutputReport, "Kasa_Sayım_Tutanağı", "PDFFormat(*.pdf)", Klsyap & "\" & "Kasa Sayım Tutanağı.pdf", True
        ElseIf yzdrsecenek = 3 Then
            DoCmd.OutputTo acOutputReport, "Kasa_Sayım_Tutanağı", "XPSFormat(*.xps)", Klsyap & "\" & "Kasa Sayım Tutanağı.xps", True
        End If

Olayı çözdüm. Belki başka birilerine lazım olu diye paylaşayım dedim.

Siz değerli hocalarımın yaptığı vba kodunu Fonksiyona dönüştürdüm

fonksiyonun adını da (Klsyap) kaydedip yazdıracağım pdf veya xps ye ekledim işlem tamam oldu emeği geçen herkese teşekkürlerimi sunarım.