makro ile gizli sayfayı yazdırma

Makrolar ve Basic programlama dili özel bölümü
Cevapla
Aslofke
Mesajlar: 26
Kayıt: 05 Şub 2018, 14:41
İşletim Sisteminiz: Windows
LibreOffice Sürümü: 5.1.5.2

makro ile gizli sayfayı yazdırma

Mesaj gönderen 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
Kullanıcı avatarı
Hamurcu
Mesajlar: 266
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

Mesaj gönderen 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.
Aslofke
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

Mesaj gönderen 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
Kullanıcı avatarı
Hamurcu
Mesajlar: 266
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

Mesaj gönderen 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.
Cevapla