BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

[Gelöst]checkbox abfragen und drucken

Alles zur Programmierung im OpenOffice.org
Luftikus
Beiträge: 17
Registriert: Di 9. Feb 2021, 19:58

Re: checkbox abfragen und drucken

Beitrag von Luftikus » Do 11. Feb 2021, 15:19

also die Zeile

next
oCtrl.setActiveSheet(oTabDruck)
habe ich geändert auf
next
oCtrl.setActiveSheet(oTab)
Jetzt druckt es einzeln alle richtig, wenn ich aber 2 oder 3 auswähle immer nur das Gleiche , also zweimal oder dreimal Tabelle 1 oder dergl.

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: checkbox abfragen und drucken

Beitrag von mikele » Do 11. Feb 2021, 15:28

Hallo,
doch - trau' dich.
Teste mal die beigefügte Datei.
Welche Programmversion nutzt du?
Dateianhänge
tabellen drucken per checkbox.ods
(10.67 KiB) 172-mal heruntergeladen
Gruß,
mikele

Luftikus
Beiträge: 17
Registriert: Di 9. Feb 2021, 19:58

Re: checkbox abfragen und drucken

Beitrag von Luftikus » Do 11. Feb 2021, 15:34

Libreoffice 7.0.4.2 64
es druckt immer Tabelle 3 wenn ich alle auswähle

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: checkbox abfragen und drucken

Beitrag von mikele » Do 11. Feb 2021, 16:52

Hallo,
irgendwie scheint LO vollkommen willkürlich mit .print umzugehen.

Ich teste mal weiter.
Gruß,
mikele

Luftikus
Beiträge: 17
Registriert: Di 9. Feb 2021, 19:58

Re: checkbox abfragen und drucken

Beitrag von Luftikus » Do 11. Feb 2021, 17:00

Vielen Dank, mach dir aber keinen Stress, ich kann ja immer noch mit meinen alten System (Einzeldruck)arbeiten.

Luftikus
Beiträge: 17
Registriert: Di 9. Feb 2021, 19:58

Re: checkbox abfragen und drucken

Beitrag von Luftikus » Fr 12. Feb 2021, 13:04

Mir ist aufgefallen das das Array vielleicht bei Mehrauswahl immer die einzelnen Aufrufe löscht und nur den letzten annimmt.
Deshalb wird vielleicht immer nur der letzte ausgedruckt. Und der so oft wie Kästchen angeklickt sind.
Nur so als Möglichkeit.
Weil einzeln funktionierts ja super.

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: checkbox abfragen und drucken

Beitrag von mikele » So 14. Feb 2021, 17:04

Hallo,
ich hoffe, mit Hilfe von hier: https://forum.openoffice.org/en/forum/v ... =5&t=40719
die Ursache gefunden zu haben.
Wenn man mit der aktiven Tabellen hin un her springt muss man beim Drucken die Option "wait" nutzen. Ansonsten springt man schon wieder auf eine andere Tabelle bevor die Daten zum Drucker gesandt wurden.
Also

Code: Alles auswählen

Sub Main2

	Dim args(0) as New com.sun.star.beans.PropertyValue
	args(0).Name = "Wait"
	args(0).Value = True
	oDoc=ThisComponent
	
	oCtrl=oDoc.CurrentController
	'aktuelle Tabelle merken
	oTabDruck=oCtrl.ActiveSheet
	'Checkboxen auslesen und zu druckende Tabellennamen in Array schreiben
	oForm=oTabDruck.Drawpage.Forms(0)
	for i=0 to oForm.count-1
		obox=oForm.getbyindex(i)
		if obox.supportsservice("com.sun.star.awt.UnoControlCheckBoxModel") then
			if obox.state=1 then
				oTab=odoc.sheets.getbyname(obox.label)
				oCtrl.setActiveSheet(oTab)
				ThisComponent.Print(args())
			end if
		end if
	
	next
	oCtrl.setActiveSheet(oTabDruck)
	
End Sub
Dateianhänge
tabellen drucken per checkbox4.ods
(10.56 KiB) 162-mal heruntergeladen
Gruß,
mikele

Luftikus
Beiträge: 17
Registriert: Di 9. Feb 2021, 19:58

Re: [GELÖST] checkbox abfragen und drucken

Beitrag von Luftikus » So 14. Feb 2021, 19:59

Einwandfrei funktioniert es jetzt, Vielen Dank, jetzt ist meine Hausverwaltung wieder komplett.
Ihr seid spitze hier.

Antworten