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. 🤗

eine bestimmte Zelle drucken

Alles zur Programmierung im OpenOffice.org
Antworten
craig
Beiträge: 318
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

Nie die Sicherungskopie vergessen!

═══════════════════════════════════════
WIN 10 Pro 64-Bit • AOO 4.1.8 • LO 7.4.5.1 (x64)

Antworten