eine bestimmte Zelle drucken

Alles zur Programmierung im OpenOffice.org
Antworten
Pretender1970
Beiträge: 59
Registriert: Do 30. Nov 2017, 08:34

eine bestimmte Zelle drucken

Beitrag von Pretender1970 » Do 4. Jul 2019, 08:06

Guten Morgen,

kann mir jemand bitte helfen? ich möchte nur eine Zelle auf einem Blatt drucken und komme
da nicht weiter..

Gruß Pre

craig
Beiträge: 135
Registriert: Sa 14. Mai 2016, 12:36

Re: eine bestimmte Zelle drucken

Beitrag von craig » Do 4. Jul 2019, 10:12

Hallo,

siehe auch die Kommentare im Code:

Code: Alles auswählen

REM Quelle: http://www.oooforum.de/viewtopic.php?t=33793#p130992
Sub Main

Dim oDoc as Object, oSheet as Object
Dim oDrBereich as Object, oDrB as Object, s as String
Dim oDruckbereiche(0)

Dim arg(0) as new com.sun.star.beans.PropertyValue
Dim PrinterProperties(1) as new com.sun.star.beans.PropertyValue
	oDoc = ThisComponent
		oSheet = oDoc.sheets(0)
	' Druckbereich festlegen
	oDrBereich = oSheet.getCellRangeByName("A1").rangeAddress
	oDruckbereiche(0) = oDrBereich

	oSheet.setPrintAreas(oDruckbereiche())
	PrinterProperties(0).name="PaperOrientation"
	' Hochformat = com.sun.star.view.PaperOrientation.PORTRAIT
	' Querformat =com.sun.star.view.PaperOrientation.Landscape
	PrinterProperties(0).value=com.sun.star.view.PaperOrientation.PORTRAIT
	PrinterProperties(1).name="PaperFormat"
	PrinterProperties(1).value=com.sun.star.view.PaperFormat.A4
	arg(0).name="Wait"
	arg(0).value=True
		oDoc.Printer = PrinterProperties()
			ThisComponent.print(arg())

End Sub
Gruß

Craig
═══════════════════════════════════════
WIN 10 Pro 64-Bit • AOO 4.1.6 • LO 6.2.1.2 (x64)

Pretender1970
Beiträge: 59
Registriert: Do 30. Nov 2017, 08:34

Re: eine bestimmte Zelle drucken

Beitrag von Pretender1970 » Fr 5. Jul 2019, 07:02

Super vielen Dank, genauso brauche ich es. Hab vielen Dank dafür......einfach nur top...

Gruß Pre

Antworten