Userform u pdf olarak kaydetme

[crpzz37]

İYİ GÜNLER HERKESE

BEN İSTEDİĞİM USERFORMUN TAMAMINI PDF OLARAK KAYDETMEK İSTİYORUM .bunun için bir kod varmıdır acaba

 

[bugrakaratas]

Örnek dosya paylaşabilir misiniz?

 

[Ömer BARAN]

İYİ GÜNLER HERKESE

BEN İSTEDİĞİM USERFORMUN TAMAMINI PDF OLARAK KAYDETMEK İSTİYORUM .bunun için bir kod varmıdır acaba

Merhaba.

Öncelikle, cevabımın altındaki İMZA bölümünden erişebileceğiniz forum kurallarının
"Büyük Harf Kısıtlaması" bölümüne bakmanızı önermeliyim.

Başka yolu var mıdır bilemiyorum ama aklıma gelen pratik yöntem;
PrintScreen işlemiyle alınan ekran görüntüsünü yeni bir sayfaya alıp,
o sayfayı da pdf formatında farklı kaydetmek.
.

 

[Korhan Ayhan]

Form ekrana geldikten sonra varsayılan yazıcı değiştirilip işlem yapılabilir.

Formunuza bir buton ekleyin ve kodu tanımlayın.

Varsayılan yazıcınızı sisteminizde tanımlı olan bir PDF yazıcıya tanımlayın.
Boş bir excel kitabı açın ve TEST isimli kodu çalıştırın.

Böylece benim önerdiğim kod içindeki "Ne07: üzerindeki Adobe PDF " ifadesine ulaşmış olacaksınız. Bu bölümü sizde oluşan ifade ile değiştirin.

Daha sonra varsayılan yazıcınızı tekrar eski haline alın.

Son olarak formunuzun olduğu dosyayı açın ve yazdırma işlemi için tanımladığınız butona basın.

Sub TEST()
    MsgBox Application.ActivePrinter
    Range("A1").Value = Application.ActivePrinter
End Sub

Private Sub CommandButton1_Click()
    Eski_Tanimli_Yazici = Application.ActivePrinter
    Application.ActivePrinter = [COLOR="Red"]"Ne07: üzerindeki Adobe PDF "[/COLOR]
    UserForm1.PrintForm
    Application.ActivePrinter = Eski_Tanimli_Yazici
End Sub