makro ile gizli sayfayı yazdırma

Makrolar ve Basic programlama dili özel bölümü

makro ile gizli sayfayı yazdırma

#2395 İleti | Aslofke | 23 Kas 2018, 13:43

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
Aslofke
 
İleti: 14
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

#2397 İleti | Hamurcu | 26 Kas 2018, 13:06

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.
Kullanıcı avatarı
Hamurcu
 
İleti: 153
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 6.x

Re: makro ile gizli sayfayı yazdırma

#2399 İleti | Aslofke | 26 Kas 2018, 22:31

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
Aslofke
 
İleti: 14
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

#2400 İleti | Hamurcu | 27 Kas 2018, 12:55

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.
Kullanıcı avatarı
Hamurcu
 
İleti: 153
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 6.x


Makrolar ve Basic

Kimler çevrimiçi

Kayıtlı kullanıcılar: Bing [Bot]

cron