Userformu PDF olarak kaydetme

[cemsultan]

Merhaba arkadaşlar.
kullandığım userforma o formu PDF olarak benim gösterdiğim yere kaydedecek bir kod yazmak istiyorum. Bu konuda yardımcı olabilecek arkadaşların yardımlarını bekliyorum. Teşekkürler...

 

[cemsultan]

Galiba konuyla ilgilenen bir arkadaş yok. yinede teşekkür ederim.

 

[Metin Karaağaç]

2007 için;

Sub Makro1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\1.Dönem Analizi\Kitap1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

2003 için ise ayrıca pdf olarak yazdıran bir program kurmanız gerekir, yani yardımcı program kullanmalısınız.

 

[Ergün Güler]

2007 için;

Sub Makro1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\1.Dönem Analizi\Kitap1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

2003 için ise ayrıca pdf olarak yazdıran bir program kurmanız gerekir, yani yardımcı program kullanmalısınız.

Selam Sayın Metin Karaağaç,
Yukarıdaki kodu ben uygulayamadım. 2003 kullanıyorum. bundan olsa gerek.
Peki, Userformu'n üzerine bir düğme koyup printer'dan yazdırmak istesem nasıl yapabilirim?

 

[Metin Karaağaç]

http://www.excel.web.tr/showthread.php?t=36306&highlight=adobe

 

[Metin Karaağaç]

Ergün Bey,
Ücretsiz bir pdf kaydetme aracı yükleyin.
Daha sonra excelde herhangi bir belge açıkken
Araçlar/Makro/Yeni makro kaydet deyin
Dosya/yazdır deyin ve yazıcı olarak pdf'ye dönüştüren yazıcıyı seçin.
Kaydetmek istediğiniz yeri belirleyin ve yazdırın.
Daha sonra kaydı durdur deyin.
Alt+F11 yapıp excelin kaydettiği kodları userformda oluşturacağınız düğmeye atayın.
Yapmanız gereken bu.

 

[Ergün Güler]

Ergün Bey,
Ücretsiz bir pdf kaydetme aracı yükleyin.
Daha sonra excelde herhangi bir belge açıkken
Araçlar/Makro/Yeni makro kaydet deyin
Dosya/yazdır deyin ve yazıcı olarak pdf'ye dönüştüren yazıcıyı seçin.
Kaydetmek istediğiniz yeri belirleyin ve yazdırın.
Daha sonra kaydı durdur deyin.
Alt+F11 yapıp excelin kaydettiği kodları userformda oluşturacağınız düğmeye atayın.
Yapmanız gereken bu.

Selam Sayın Metin Karaağaç,
Sorumu tam anlatamadım. Özür dilerim çünkü başkasının konusunun arasına girmiş oldum. ilgili soru olduğundan sormuş oldum bir kere. Benim isteğim şu idi;
Userform'u aynen görüntülendiği gibi yazıcıdan çıktısını almaktı. PDF olarak değil.
Nasıl ki "Microsoft Visual Basic Düzenleyici"nden "File", Daha sonra "Print" diyoruz. Daha sonra sadece "Form Image"ı seçip yazdırıyoruz, aynen böyle.

Ben Userform kod sayfasına;

Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

yazarak yazdırabildim. ancak, ebatı geniş veya uzun olanları kağıda sığdırabilmek için nasıl bir kod yazmam lazım? yardımcı olabilirseniz sevinirim.
İyi çalışmalar.

 

[cemsultan]

Metin Bey teşekkür ederim. Fakat çalıştıramadım kodu. öenerebileceğiniz başka birşey var mı?

 

[Metin Karaağaç]

Aşağıdaki dosyayı incelermisiniz.

 

[cemsultan]

Metin bey çok teşekkür ederim. kod çalışıyor.

 

[cemsultan]

ben sayfa2'yi PDF olarak kaydetmek istersem nasıl bir kod kullanmam lazım? bu konuda yardımcı olabilir misiniz? ayrıca bir de user formu PDF olarak kaydetmenin yolu var mıdır? teşekkür ederim.