Merhaba, butonun tıklandığında olayında bulunan

With Application.FileDialog(msoFileDialogSaveAs)

        .Title = "KAYIT YERİNİ SEÇİNİZ..."

        .AllowMultiSelect = False

        .InitialFileName = ("Hammadde Listeleri - " & Date & ".pdf")

        result = .Show

        If (result <> 0) Then

            fileName = Trim(.SelectedItems.Item(1))

            fnum = FreeFile

            Open fileName For Output As fnum

        Close #fnum

        End If

  End With

Kodunu aşağıdaki ile değiştirerek deneyiniz.

With Application.FileDialog(msoFileDialogSaveAs)

        .Title = "KAYIT YERİNİ SEÇİNİZ..."

        .AllowMultiSelect = False

        .InitialFileName = ("Hammadde Listeleri - " & Date & ".pdf")

        result = .Show

        If (result <> 0) Then

            fileName = Trim(.SelectedItems.Item(1))

            fnum = FreeFile

            Open fileName For Output As fnum

        Close #fnum

        Else

            Exit Sub

        End If

  End With