1 sayfadan 1. sayfa

makro ile gizli sayfayı yazdırma

İletiTarih: 23 Kas 2018, 13:43
Aslofke
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

Re: makro ile gizli sayfayı yazdırma

İletiTarih: 26 Kas 2018, 13:06
Hamurcu
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.

Re: makro ile gizli sayfayı yazdırma

İletiTarih: 26 Kas 2018, 22:31
Aslofke
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

Re: makro ile gizli sayfayı yazdırma

İletiTarih: 27 Kas 2018, 12:55
Hamurcu
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


CalismaSayfasi.IsVisible = True ise Görünür, False ise görünmez.