aşağıdaki makro ile sayfayı yazdırabiliyorum ancak yazdıracağım listeçıktı sayfasını gizleyince yazdırmıyor, bunu nasıl yazdırabilirim ve yazdırma sonrası o calc o sayfayada kalıyor tuşa bastığım sayfaya döndürebilir miyim
sub listeckt
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Printer"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(1).Name = "RangeText"
args2(1).Value = "1"
args2(2).Name = "Collate"
args2(2).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
rem ----------------------------------------------------------------------
document = ThisComponent 'assigns the current document to the variable document
Sheets = document.Sheets 'get the container of all Sheets
Sheet = Sheets.getByName("listeçıktı") 'get the sheet named Sheet1
Controller = document.getcurrentController
Controller.setActiveSheet(Sheet)
end sub
makro ile gizli sayfayı yazdırma
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: makro ile gizli sayfayı yazdırma
Merhaba,
Gizli sayfalardaki bilgiler yazıcıya ve/veya pdf olarak dışarı aktarılmazlar.
Bunun için yapman gereken basic makroları kullanarak önce ilgili sayfayı GÖRÜNÜR yapmak ve sonrasında yazdırmak.
Son olarak yine ilgili sayfayı GİZLİ yapabilirsin yine basic makrosu ile.
Gizli sayfalardaki bilgiler yazıcıya ve/veya pdf olarak dışarı aktarılmazlar.
Bunun için yapman gereken basic makroları kullanarak önce ilgili sayfayı GÖRÜNÜR yapmak ve sonrasında yazdırmak.
Son olarak yine ilgili sayfayı GİZLİ yapabilirsin yine basic makrosu ile.
-
- Mesajlar: 26
- Kayıt: 05 Şub 2018, 14:41
- İşletim Sisteminiz: Windows
- LibreOffice Sürümü: 5.1.5.2
Re: makro ile gizli sayfayı yazdırma
hmm açıkçası bu şekilde olması gerektiğini tahmin ettim excell in örnekleri mevcut fakat libreoffice için örneğe rastlamadım ilgili kodları araştırıyorum teşekkür ederim
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: makro ile gizli sayfayı yazdırma
Kod: Tümünü seç
Sub main
Dim CalismaKitabi As Object
Dim CalismaSayfasi As Object
CalismaKitabi = ThisComponent
CalismaSayfasi = CalismaKitabi.Sheets.getByName("Çizelge2")
CalismaSayfasi.IsVisible = True
End sub