UserFormu PDF Olarak Kaydetmek

[cocoa35]

Merhaba, bir konuda yardımınıza ihtiyacım var, şöyleki ben ekli dosyada görüldüğü üzere UserForm1'i masaüstüne PDF olarak kaydedilmesini istiyorum. Bununla ilgili internetten bazı araştırmalar yaptım ancak Print oluyor PDF olarak kayıt yapılması ile ilgili çok net makrolar bulamadım bir tane ekli dosyada bulunan makroyu buldum oda hata veriyor. Bu konuda yardımcı olurmusunuz bu makro ile olurmu yoksa başka bu konu ile ilgili makrolar varmı? Teşekkürler

 

[ÖmerBey]

Merhaba,
Kodunuzda AltPrintScreen yerine Application.SendKeys "(%{1068})" yazıp deneyiniz.

 

[cocoa35]

Merhaba,
Kodunuzda AltPrintScreen yerine Application.SendKeys "(%{1068})" yazıp deneyiniz.

Ömer bey merhaba, kod'da dediğiniz düzeltmeyi yaptım ancak aşağıdaki hatayı gösterip userform'u sayfa1 'e resim olarak kaydetti, Bu durumda; 1.Hata sinyali neden verdi ? 2. UserFormu sayfaya resim olarak değilde masaüstüne PDF olarak kayıt yapılmasını istiyorum bunu nasıl yapılabilir? çok teşekkürler

sh.Range("Z1") = Workbooks("Deneme.xlsm").Sheets("Deneme.xlsm").Range("CP1") ' proje adını dosya adı olarak yazar 'noktalı alanlara excel kitap adını yazınız.(örnek: abc.xls) 1 yazan yer dosyaya tarihten önce parça kodunu yazması içindir.İlgili hücreye parça kodunu otomatik getirtmelisiniz.
sh.Select

 

[ÖmerBey]

Merhaba,
Dosyanızın çalışma mantığı şu şekilde:
Önce boş bir çalışma kitabı oluşturuyor.
Userform'u printscreen aracılığıyla hafızaya alıyor.
Aldığı bu görüntüyü oluşturduğu boş sayfaya yapıştırıyor.
Bu sayfanın Z1 hücresine "Deneme.xlsm" isimli dosyanın yine "Deneme.xlsm" isimli sayfasının "CP1" hücresindeki veriyi alıyor. (Hata verdiğini ifade ettiğiniz kısım burası. Muhtemelen dosya ismi veya sayfa ismi yanlış.)
Aldığı bu veriyi dosya isminde kullanarak userformu yapıştırdığı sayfayı masaüstüne PDF olarak kaydediyor.
Sonuç olarak dosyanızın çalışmasında bir hata yok. Dilerseniz hata olduğunu ifade ettiğiniz satırı silip kullanabilirsiniz. Sadece dosya isminde küçük bir eksiklik olacaktır.