alttaki kodda kırmızı alan sizin art adındaki metin kutunuz
pdf dosyanızın adını ekler
alltaki kodda raporun adını boş geçilmemesi için uyarı msj var kodunuza mutlaka ekleyin alan boş geçilmesin
ek bilgi:
sadece virgülü silip yeniden bir virgül koysa idiniz pdf name diye açıklama çıkacaktı
Private Sub Komut21_Click()
On Error Resume Next
if art="" or isnull(art) then:msgbox "rapor adı boş olamaz":art.setfocus:exit sub
Dim blRet As Boolean
Dim ExportPath As String
ExportPath = Me.mtnDoysaYolu & "\"
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, ExportPath & ART & ".pdf", False, True, 150, "", "", 0, 0, 0)
End Sub
saygılar