Soru Listboxta Seçilen Sayfayı PDF Yapma

[TURKOLOG]

Herkese merhaba aşağıdaki çalışan kod ile seçilen sayfayı xlsm yapıyorum ve çalışıyor.
Ben aynı kodlarla seçilen sayfayı PDF yapmak istiyorum ama kod hep hata veriyor.
Microsoft Dosya Uzantıları ve Kodları Sayfası nda da PDF şeklini bulamadım
Userformu konunun ekine yerleştirdim.
Yardım edebilecek olan var mı

Çalışan Kod

Sub Xlsm_Yap ()
Application.ScreenUpdating = False
Dim txtmsg As String, txttitle As String
Dim txtresult As String, txtdefault As String
Dim JJ As String
JJ = Application.GetSaveAsFilename("YILDIZ", "Microsoft Excel Workbook (*.xlsm), *.xlsm", , "YILDIZ")
If JJ = "False" Then GoTo LastLine
'
Dim i As Integer, n() As String, f As Integer
Dim cnt1 As Integer, cnt2 As Integer
cnt1 = 0
For f = 0 To Me.ListBox1.ListCount
On Error GoTo 1
If Me.ListBox1.Selected(f) Then _
cnt1 = cnt1 + 1
1: Next f
ReDim n(1 To cnt1)
cnt2 = 0
For i = 0 To (Me.ListBox1.ListCount - 1)
On Error Resume Next
If Me.ListBox1.Selected(i) Then
cnt2 = cnt2 + 1
n(cnt2) = Me.ListBox1.list(i)
End If
Next i
On Error GoTo 0
Sheets(n).Copy
Sheets(n).Select
ActiveWorkbook.SaveAs Filename:= _
(JJ), _
FileFormat:=52, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
LastLine:
Application.ScreenUpdating = True
Unload Me
End Sub

Bu eklentiyi yapınca
FileFormat:=xlTypePDF, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
kod PDF yapmıyor ve hata veriyor.

 

[YUSUF44]

Kullandığınız ofis versiyonu 2007 ise pdf kaydetme özelliği yok maalesef.

 

[TURKOLOG]

ofis 2016 64 bit Türkçe

 

[Korhan Ayhan]

PDF olarak kaydetme kodlarını MAKRO KAYDET yöntemini kullanarak kolaylıkla elde ederek kodlarınıza uyarlayabilirsiniz.

Forumda bolca örnekte var. Arama yaparak ulaşabilirsiniz.

Sorgu için arama sonuçları: ExportAsFixedFormat

www.excel.web.tr

 

[TURKOLOG]

Hocam
fileformat :=52 den sonra
FileFormat:=xlTypePDF, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=Falar kodunu farklı şekillerde denediysem de yapamadım.
Sorunun kaynağını bulamadım.
Yardım edebilecek olan varsa çok sevinirim.

 

[Korhan Ayhan]

İlginç...

Hangi yöntemin yardımcı olacağını yazdım. Ayrıca daha önce yapılmış uygulamanın linkini paylaştım. Biraz gayret edin lütfen..

 

[YUSUF44]

Ben konuyu excelle ilgili sanmıştım ama paylaştığınız rar dosyasının içindeki dosyalar frm ve frx dosyaları. Bu işlemleri excelde yapmıyor musunuz?

 

[TURKOLOG]

Frm. Ve frx uzantılı dosyayı vba ile içe aktarınca userform excele gelmiş oluyor