USERFORMU PDF OLARAK KAYDETMEK

[cocoa35]

Arkadaşlar, ek'te örnek olarak gönderdiğim Kitap1 dosyasında bulunan Userformu PDF Olarak kaydetmek istiyorum. Userform açıldığında üstündeki commandbuton'a tık ladığımda üstünde bulunan resim PDF Olarak kitap1 bulunduğu klasöre PDF olarak kayıt olsun, Bunun imkanı varmı?

 

[Korhan Ayhan]

Merhaba,

Linkte bir çözüm sunulmuş. Kendinize uyarlarsınız.

[SOLVED:] Print userform to PDF

Ive got the following code tied toa button to print an open user form and its contents to a PDF. It errors out. Can anyone tell me whats wrong? Private Sub btnPrintPDF_Click()Dim Msg As String On Error GoTo MakePDFError: Application.ActivePrinter = "Adobe PDF Printer:"...

www.vbaexpress.com

 

[cocoa35]

Korhan bey vermiş olduğunuz link'i inceledim ama sanırım visual studio VS kod'ları bende o dilden hiç anlamıyorum dolayısı ile VB'ye adapte edemedim maalesef.

 

[Korhan Ayhan]

Linkteki 12 nolu mesajdaki kodları boş bir modüle uygulayın.

Sonra formunuzda ki butonu silin (buton PDF dosyasında görünmesin diye siliyoruz) ve aşağıdaki kodu formunuzun kod bölümüne ekleyin ve çalıştırın.

Dosya_Adi yazan yere PDF dosyanızın isminin ne olmasını istiyorsanız onu yazınız.

Formun üzerindeki resme tıkladığınızda PDF olarak kayıt edilecektir.

Private Sub Image1_Click()
    WindowToPDF ThisWorkbook.Path & "\Dosya_Adi.pdf"
End Sub

 

[cocoa35]

Hocam denedim ancak bir yerde hata var modüle kopyaladığım kod hata veriyor

 

[Korhan Ayhan]

Kodlarda Türkçe ifadeler var. Sanırım linki Türkçe'ye çevirip öyle uyguladınız.

Kontrol edip tekrar deneyiniz.

 

[cocoa35]

Haklısınız web sayfasını otomatik türçeye çevirmiş , bende fark etmedim. Dediğiniz gibi kod'ları düzgün hali ile modüle ekledim ekli resimdeki bölüm hata verdi

 

[Korhan Ayhan]

Bende hata vermiyor...

Ama eklediğiniz dosyada tanımladığınız isimde sorun var.

WindowToPDF ThisWorkbook.Path & "\a2/o.pdf"