- Katılım
- 4 Tem 2023
- Mesajlar
- 81
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 32 Bit
- Excel Dili
- Türkçe
Merhaba aşağıdaki kodda belirtilen çalışma sayfasının pdf dökümanını alıyorum fakat çalışma sayfalarım fazla olduğu için o sayfada kalma şartı ile pdf olarak döküman veriyor .Bu sayfada kalmama şartını nasıl engelleyebiliriz.
Function pdf_()
Dim fname As String
Dim syf_ZimmetGirişFiş As Worksheet
With worksheets("ZimmetGirişFiş")
fname = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "" & Sayfa46.Range("U4").value
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"C:\Users\" & Environ("UserName") & "\Desktop\ZİMMET GİRİŞ ÇIKIŞ\" & fname, Quality:=xlQualStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Function pdf_()
Dim fname As String
Dim syf_ZimmetGirişFiş As Worksheet
With worksheets("ZimmetGirişFiş")
fname = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "" & Sayfa46.Range("U4").value
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"C:\Users\" & Environ("UserName") & "\Desktop\ZİMMET GİRİŞ ÇIKIŞ\" & fname, Quality:=xlQualStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
