OpenOffice.info

Code: Alles auswählen

	For i=1 to 8
	if  oForm.getByName("CheckBox"&i).State =1 then
		'A$=A$+"1 "
		N = N+2^(i-1)
	else
		'A$=A$+"0 "
	End if
	next i
	print N," ",chr(N)

Code: Alles auswählen

	open "c:\Ausgabe.txt" for Output as #1
		print #1,chr(N)
	close #1
	'den erechneten Wert ausdrucken
	'Doc.Print(args())
	Dim printProp(4) as New com.sun.star.beans.PropertyValue
	Dim oFileProp(0) as New com.sun.star.beans.PropertyValue
	 oFileProp(0).name="MacroExecutionMode"
	 oFileProp(0).value = 0
     printProp(0).Name = "Pages"
     printProp(0).Value = "1"
     printProp(1).Name = "CopyCount"
     printProp(1).Value = 1
     printProp(2).Name = "Collate"
     printProp(2).Value = False
     printProp(3).Name = "Sort"
     printProp(3).Value = False
     'oDoc=ThisComponent
     'oDoc="c:\Ausgabe.txt"
     url=converttourl("C:\Ausgabe.txt")
     oDoc = StarDesktop.loadComponentFromURL(url, "_blank", 0, oFileProp() )
     oDoc.Print(printProp())
     'StarDesktop.loadComponentFromURL(url, "_blank", 0, oFileProp()).Print(printProp())
     oDoc.close()