PFD olarak kaydet

[bthn35]

Merhaba,
Elimde bulunan bir excel'de A1:J54 arası alanı PDF olarak masaüstüne kaydedip, PDF ismini de N1'den almasını istiyorum. Bunun makrosu var mı acaba?

 

[Muzaffer Ali]

Merhaba.
Aktif sayfayı kaydeder.

Sub Test()
    Range("A1:J54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Environ("UserProfile") & "\Desktop\" & Range("N1") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[Gungor_Alkan]

Bu başlığa bakabilirsiniz.

Soru - Makro İle Yazıcı Ayarı ve PDF Yapma

Merhabalar, elimde bir excel dosyası var. Açık sayfaları tek bir PDF yaparak bulunduğu klasöre aynı isimle farklı kaydetmesini istiyorum. Makro kaydet ile yaptım ancak aynı klasör içerisine kaydetmiyor. dosyayı birden fazla kişi ile paylaşacağımdan PDF olarak kaydetmeden önce sayfa boyutlarının...

www.excel.web.tr

 

[bthn35]

Her iki makro'da da şöyle bir sorun oluyor. Benim kaydettiğim alan tam olarak A4 ölçülerinde olmadığı için sayfanın altında boşluk kalıyor. Bunu nasıl düzeltebilirim?

 

[Muzaffer Ali]

Kaydetmeden önce Range("A1:J54") aralığını A4'e uyacak şekilde düzenlerseniz sorun çözülmüş olur.