1. sayfa (Toplam 1 sayfa)
Belli alanları yazdırma
Gönderilme zamanı: 17 Eki 2018, 11:47
gönderen skuygur
Merhabalar.
Ben iki buton koyup, butonlara ayrı ayrı yazdırma alanı belirlemek istiyorum ve yazdırmasını istiyorum. Yardımcı olabilir misiniz?
Re: Belli alanları yazdırma
Gönderilme zamanı: 24 Eki 2018, 14:05
gönderen Hamurcu
Merhaba,
Bunun için aşağıdaki kodu kullanabilirsiniz.
Kod: Tümünü seç
Sub Yazdir
' Yazdırma alanı için bir matris tanımlıyoruz
Dim YazdirmaAlani(0) as New com.sun.star.table.CellRangeAddress
' Çalışma kitabımızı bir değişkene atıyoruz
CalismaKitabi = ThisComponent
' Calişma kitabındaki tüm Çalışma Sayfalarını bir değişkene atıyoruz
Sayfalar = CalismaKitabi.Sheets
' Çalışma Kitabındaki Toplam Sayfa Sayısını buluyoruz
SayfaNo = Sayfalar.Count
' 0. Sayfadan başlayarak, tüm sayfalardaki daha önceden belirlenmiş yazdırma alanlarını iptal ediyoruz
For i = 0 to SayfaNo - 1
Sayfa = Sayfalar.getByIndex(i)
' Array() boş bir matristir ve daha önceden belirli bir yazdırma alanı varsa üzerine boş matrisi yazarak sıfırlıyoruz
Sayfa.setPrintAreas(Array())
Next i
' Yazdırmak için hangi sayfayı seçeceğimizi ayarlıyoruz
YazdirilacakSayfa = Sayfalar.getByName("Çizelge1")
' Seçtiğimiz sayfadaki yazdırılacak alanı seçiyoruz
SecilenAlan = YazdirilacakSayfa.getCellRangeByName("B2:E6")
' Seçtiğimiz sayfadaki, seçtiğimiz alanı yazdırma alanı olarak atıyoruz
YazdirmaAlani(0) = SecilenAlan.RangeAddress
' Yazdırma alanını ayarlıyoruz
YazdirilacakSayfa.setPrintAreas(YazdirmaAlani())
' Yazıdırıyoruz
CalismaKitabi.Print(Array())
End Sub
Test etmek için yukarıdaki kod'un son satırında yeralan YAZDIR komutunu ' işareti ile Açıklama satırına dönüştürün (Yani etkisiz hale getirin) ve makroyu çalıştırın.
Kod: Tümünü seç
' Yazıdırıyoruz
' CalismaKitabi.Print(Array())
Sonrasında Çizelgenize baktığınızda (Baskı Önizleme ile) yazdırılacak alanın seçildiğini göreceksiniz.
İyi çalışmalar.