Bu yazımızda Excel'de Tablo Yazdırmayı öğreneceğiz.
Senaryo :
Tablonuzla işiniz bittiğinde ve sayfanın basılı bir kopyasına ihtiyacınız var. Tablo aralığında sadece bir hücre seçebilirsiniz. Ve sonra tıklayın Dosya -> Yazdır -> ve Yazdır'da Tablo seçenek düğmesini seçin ne bölümü. Ancak Excel bunu yazdıracaktır. Burada herhangi bir tabloyu Excel'de nasıl yazdırabileceğimizi öğreniyoruz.
Seçili bir aralığı excel'de (bir makbuz söyleyin) VBA kullanarak Excel'de PDF olarak kaydetmek için aşağıdaki sözdizimini kullanın.
Genetik Kod Alt SaveRangeAsPDF() Menzil.ExportAsFixedFormat Türü:=xlTypePDF, Dosya adı:= _ "C:\Kullanıcılar\dosya_adı", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub
Yukarıdaki kod, sabit bir aralığı PDF belgesi olarak kaydetmek için kullanılan genel bir koddur. Excel'i PDF'ye dışa aktarırken kayıt makronuz, benzer bir kod görünecektir.
Menzil: Sabit bir aralık, dinamik bir aralık veya bir seçim olabilir. Bunu tanımlamanız gerekir.
Dosya adı: Bu, pdf'nin tam adıdır. Bir dize olarak tanımlayın.
Değişkenlerin geri kalanı olduğu gibi bırakılabilir. Onları örnek alarak açıkladım.
Örnek: Excel makbuzunu VBA kullanarak PDF olarak yazdırın
Diyelim ki Excel'de düzenli olarak makbuz yazdırmanız ve göndermeniz gerekiyor. Bu durumda, otomatik olmasını istersiniz. Excel'i pdf'ye tekrar tekrar dışa aktarmak istemezsiniz. Bunu yapmak için sadece bir düğme kullanabilirseniz, bu yardımcı olacaktır, değil mi?
Burada, bu makbuz biçimini tasarladım. "PDF Oluştur" düğmesini kullanarak pdf olarak yazdırmak/kaydetmek/dışa aktarmak istiyorum.
Bu makbuz "A2:L21" aralığını kapsar. Yazdırma alanını zaten ayarladım.
Bu excel aralığını PDF olarak kaydetmek için, excel sayfasını pdf'ye dışa aktarmak için yukarıda belirtilen genel VBA kodunu kullanacağız. Kodu ihtiyacımıza göre ayarlayacağız.
Sub PrintSelectionToPDF() Dim faturaRng As Range Dim pdfile As String 'Yazdırılacak ayar aralığı Ayarla faturaRng = Range("A1:L21") 'bir zaman damgası ile dosya adını ayarlayın. pdfile = "fatura" & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".pdf" 'tam nitelikli adı ayarlama. Ortaya çıkan pdf, ana dosyanın bulunduğu yere kaydedilecektir. pdfile = ThisWorkbook.Path & strfile faturaRng.ExportAsFixedFormat Tür:=xlTypePDF, _ Dosya Adı:= pdfile, _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=FalsePublish:
Kodu Kullanmak:
VBA düzenleyicisini açarak yukarıdaki kodu makbuz dosyanıza kopyalayın ( Alt+F11 kullanın). Yazdırmak istediğiniz kodda aralığı ve dosya yolunu (isterseniz) ayarlayın. Çalışma dosyasını aşağıdan indirebilirsiniz.
VBA kullanarak Excel Aralığını PDF olarak kaydedin
Açıklama:
Dim faturaRng As Range Dim pdfile As String
Kod basit. İlk önce iki değişken oluşturduk. Pdf olarak kaydetmek istediğimiz aralık/sayfa için "Aralık Olarak FaturaRng". strFile elde edilen PDF'nin tam dosya adı için.
faturaRng = Aralık ("A1:L21") ayarla
Baskı aralığımız sabit olduğu için fatura aralığını Aralık("A1:L21") olarak belirledik.
pdfile = "fatura" & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".pdf" pdfile = ThisWorkbook.Path & strfile
Yukarıdaki iki satırda, önce dosyaya bir zaman damgası ile isim veriyoruz ve ardından ana dosyanın yoluna ekliyoruz. Sonuç olarak, pdfile, ortaya çıkan pdf dosyasının tam adını içerir.
faturaRng.ExportAsFixedFormat _ Type:=xlTypePDF, _ Dosya Adı:= pdfile, _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=True, _ OpenAfterPublish:=False
Son olarak, tanımlanan Excel aralığını PDF olarak yazdırmak için Range sınıfının ExpoortAsFixedFormat yöntemini kullanıyoruz. Type'ı xlTypePDF olarak tanımlıyoruz. Başka bir seçenek, seçilen aralığı XPS dosyası olarak kaydedecek olan xlTypeXPS'dir.
Dosya adını, pdf dosyasının tam adının dizesini içeren pdfile olarak ayarladık. Buraya sabit kodlanmış bir metin yazabilir veya ihtiyacınıza göre özelleştirebilirsiniz.
Ardından, pdffile'ın kalitesini xlQualityStandard olarak belirledik. xlQualityMinimum olarak bir seçeneğimiz daha var.
Ardından, IncludeDocProperties'i True olarak ayarlıyoruz. Bu, elde edilen PDF'nin bir Belgenin özelliklerine sahip olacağı anlamına gelir.
Ardından IgnorePrintAreas'ı True olarak ayarlıyoruz. Bu, önceden ayarlanmış herhangi bir yazdırma alanını yok sayacağı anlamına gelir.
Son olarak OpenAfterPublish'i False olarak ayarlıyoruz. Oluşturduğunuz dosyanın otomatik olarak açılmayacağı anlamına gelir. Bunu false olarak ayarladım çünkü bir döngü kullanarak 100'lerce dosya oluşturuyorum ve bunların açılmasını istemiyorum. Excel kullanarak oluşturduktan sonra dosyayı açmak istiyorsanız, True olarak ayarlayın.
Seçilen aralığın pdf olarak yazdırılmasının kullanımı
Temel kullanımlardan biri, seçilen aralığı yalnızca bir düğmeye tıklayarak yazdırmaktır. Ancak en iyi kullanım, onu farklı müşteriler için birden çok makbuz oluşturmanız gereken bir döngüde kullanmaktır. Veri doldurmak için bir alt oluşturun ve ardından seçilen aralığı bir döngüde yazdırmak için bu kodu kullanın.
Excel'de Tablo Nasıl Yazdırılır hakkındaki bu makalenin açıklayıcı olmasını umuyorum. Değerleri hesaplama ve ilgili Excel formülleri hakkında daha fazla makaleyi burada bulabilirsiniz. Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz. Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın.
Microsoft Excel'de VBA kullanarak birden çok seçimi tek bir sayfada yazdırın | Birden çok aralık seçin ve VBA kullanarak her aralığı farklı bir sayfada yazdırın.
Microsoft Excel'de VBA kullanarak bir klasördeki tüm çalışma kitaplarını yazdırın | Her excel çalışma kitabını kullanarak bir klasöre yazdırmak ve kaydetmek için bu VBA kodunu kullanın.
Excel Sayfasını VBA Kullanarak Sütuna Dayalı Birden Çok Dosyaya Böl | Bu VBA kodu, belirli bir sütundaki benzersiz değerlere dayalı excel sayfası tabanını böler. Çalışan dosyayı indirin.
Microsoft Excel 2016'da VBA Kullanarak Uyarı Mesajlarını Kapatın | Çalışan VBA kodunu kesintiye uğratan uyarı mesajlarını kapatmak için Application sınıfını kullanıyoruz.
Microsoft Excel 2016'da VBA Kullanarak Yeni Çalışma Kitabı Ekleme ve Kaydetme | VBA kullanarak çalışma kitapları eklemek ve kaydetmek için Workbooks sınıfını kullanıyoruz. Workbooks.Add, kolayca yeni bir çalışma kitabı ekler, ancak…
Popüler Makaleler :
Excel'de EĞER İşlevi nasıl kullanılır? : Excel'deki EĞER ifadesi koşulu kontrol eder ve koşul DOĞRU ise belirli bir değer veya YANLIŞ ise başka bir belirli değer döndürür.
Excel'de DÜŞEYARA İşlevi nasıl kullanılır? : Bu, farklı aralık ve sayfalardan değer aramak için kullanılan excel'in en çok kullanılan ve popüler işlevlerinden biridir.
Excel'de SUMIF İşlevi nasıl kullanılır? : Bu, başka bir gösterge panosu temel işlevidir. Bu, belirli koşullardaki değerleri özetlemenize yardımcı olur.
Excel'de COUNTIF İşlevi nasıl kullanılır? : Bu şaşırtıcı işlevi kullanarak değerleri koşullarla sayın. Belirli değerleri saymak için verilerinizi filtrelemeniz gerekmez. Gösterge tablonuzu hazırlamak için Countif işlevi gereklidir.