VBA'da yazdırma, excel'deki baskıya çok benzer; Excel veya elektronik tablolarda önemli verilerimiz olduğunda, bunları güvenli hale getirmenin tek yolu onları pdf olarak kaydetmek veya yazdırmaktır, yazdırma için yazdırma komutunu ayarlamamız gerekir. Kullanmadan önce VBA, verileri başka bir dosyaya yazdırır veya yazarsa bu komut ne yapar.
VBA Excel'de Yazdırma nedir?
VBA Çıktısı hiçbir şey değildir, ancak her zamanki gibi, normal çalışma sayfasında nasıl yazdırdığımızda bunda bir fark yoktur. Excel VBA kodunu kullanarak tüm çalışma sayfası verilerini yazdırabiliriz. Çalışma kitabını, grafikleri, belirtilen aralığı vb. Yazdırabiliriz.
Raporu müdüre sunmak için yaptığımız onca zorlu çalışmadan sonra, genellikle e-posta gönderiyoruz. Ancak toplantıda bazı durumlarda, yöneticinizin raporlarınızın basılı bir kopyasına ihtiyacı vardır. Bu senaryolarda, elektronik tabloda sahip olduğunuz raporu yazdırmanız gerekir. Yöneticinizin raporun bir çıktısına ihtiyaç duymasının nedenlerinden biri bilgisayarda okunacak çok büyük bir rapor olabilir. Bir çalışma sayfasında, raporları yazdırmayı zaten biliyor olmanız gerekir. Bu yazıda, VBA kodlamasını kullanarak nasıl yazdıracağınızı göstereceğiz. VBA'da raporların nasıl yazdırılacağını öğrenmek için önümüzdeki 15 dakika boyunca bu makaleyi izleyin.
VBA Excel'de VBA PrintOut Sözdizimi
Sözdizimini görmeden önce, önce bunu açıklığa kavuşturmama izin verin. Ne yazdırıyoruz? Aralıklar, grafikler, çalışma sayfaları, çalışma kitapları yazdırıyoruz. Dolayısıyla PrintOut () yöntemi tüm bu hedeflerle kullanılabilir.
(Kimden): Baskının hangi sayfasından başlayacağı. Herhangi bir değer sağlamazsak, ilk sayfadan gibi davranacaktır.
(Kime): Yazdırılacak son sayfa ne olmalıdır? Yok sayılırsa, son sayfaya kadar yazdırılacaktır.
(Kopyalar): Kaç kopya yazdırmanız gerekir.
(Önizleme): Yazdırmaya devam etmeden önce baskı önizlemesini görmek ister misiniz? Evetse, DOĞRU bağımsız değişkendir, YANLIŞ değilse bağımsız değişkendir.
VBA Excel'de Yazdırma Örnekleri
Aşağıda VBA Excel'de Yazdırma örnekleri verilmiştir.
Örnekleme amacıyla, aşağıdaki resimde gösterildiği gibi sahte veriler oluşturdum.
Şimdi raporu A1'den D14'e yazdırmamız gerekiyor. Bu benim aralığım. PrintOut yöntemine erişmek için aralığı VBA koduna girin.
Kod:
Alt Baskı_Örneği1 () Aralık ("A1: D14") Son Alt
Şimdi PrintOut yöntemine erişin.
Kod:
Alt Baskı_Örneği1 () Aralık ("A1: D14"). PrintOut End Sub
Parametrelerin hiçbirine dokunmuyorum. Bu, seçilen aralığı yazdırmak için yeterlidir. Bu kodu çalıştırırsam, A1'den D14 hücresine kadar olan aralığı yazdıracaktır.
VBA Excel'de Çıktı Yöntemi Parametreleri
Şimdi aynı verileri VBA Excel'de PrintOut yönteminin diğer parametrelerini kullanmak için kopyalayıp yapıştırdım.
Sayfanın tamamını yazdırmak istediğimizde, tüm sayfaya Aktif Sayfa olarak başvurabiliriz. Bu, içindeki tüm sayfayı kapsayacaktır.
-
Tüm Çalışma Sayfasını Yazdırmak için Kod.
Kod:
Alt Baskı_Örneği1 () ActiveSheet.UsedRange.PrintOut 'Bu, kullanılan tüm sayfa aralığını yazdıracaktır. Sub
-
Sayfa Adına Bakacak Kod .
Kod:
Sub Print_Example1 () Sheets ("Ex 1") UsedRange.PrintOut 'Bu aynı zamanda Ex 1 olarak adlandırılan sayfanın tüm kullanılan aralığını da yazdıracaktır.
-
Çalışma Kitabındaki tüm Çalışma Sayfalarını Yazdırmak için Kod .
Kod:
Sub Print_Example1 () Worksheets.UsedRange.PrintOut 'Bu, çalışma kitabındaki tüm sayfanın kullanılan tüm aralığını da yazdıracaktır. Sub
-
Tüm Çalışma Kitabı Verilerini Yazdırmak için Kod .
Kod:
Alt Baskı_Örneği1 () ThisWorkbook.UsedRange.PrintOut 'Bu, çalışma kitabındaki tüm sayfanın kullanılan tüm aralığını da yazdırır. Sub
-
Yalnızca Seçilen Alanı Yazdırmak için Kod .
Kod:
Sub Print_Example1 () Selection.PrintOut 'Bu yalnızca seçilen aralığı yazdırır End Sub
Excel VBA'da Yazdırma Yöntemi Parametreleri nasıl kullanılır?
Şimdi çıktı yönteminin parametrelerini nasıl kullanacağımızı göreceğiz. Söylediğim gibi, diğer özellikleri kullanmak için verileri genişletmiştim.
Elbette, bu tek bir sayfaya yazdırılmayacak. Aralığı A1 ila S29 olarak seçin.
Kod:
Sub Print_Example2() Range ("A1:S29") End Sub
Now select the print out method.
Code:
Sub Print_Example2() Range("A1:S29").PrintOut End Sub
The first & second parameters are From & To, what is the starting & ending pages position. By default, it will print all the pages, so I don’t touch this part. Now I want to see the print preview, so I will choose Preview as TRUE.
Code:
Sub Print_Example2() Range("A1:S29").PrintOut Preview:=True End Sub
Now I will run this code. We will see the print preview.
This is coming in 2 pages.
So first, I want to set up the page to come in a single sheet. Use the below code to set up the page to come in one sheet.
Code:
Alt Baskı_Örneği2 () Çalışma Sayfalarıyla ("Örnek 1"). PageSetup .Zoom = False .FitToPagesTall = 2 .FitToPagesWide = 1 .Orientation = xlLandscape End with ActiveSheet.PrintOut Preview: = True End Sub
Bu, sayfayı tek bir yaprağa yazdırmanın yanı sıra yatay modda yazdıracak şekilde ayarlar. Şimdi baskı önizlemesi şöyle olacak.
Bunun gibi, VBA yazdırmak istediğimiz şeyleri yazdırmak ve onlarla oynamak için bir yöntem yazdırabiliriz.
