Druckmakro

[djimno]

Hallo,

ich bin ein Neuling auf dem Gebiet der Macro-Programmierung und deshalb möchte kurz um Hilfe bitten. Ich habe mir ein Script gemacht, dass einen bestimmten Bereich druckt. Es funktioniert aber der Code scheint mir zu "groß" zu sein. Bitte mal drüberschauen. Danke

Code: Alles auswählen

Sub Aedi
	Dim oDoc as Object, oSheet as Object
	Dim oDrBereich as Object, oDrB as Object, s as String
	Dim aDruckbereiche(0) 'Druckbereich-Array mit einem Element
	Dim  oCon as Object
	oDoc = ThisComponent
	oSheet = oDoc.sheets(1)
	oDrBereich = oSheet.getCellRangeByName("A24:J44").rangeAddress
	aDruckbereiche(0) = oDrBereich
	oSheet.setPrintAreas(aDruckbereiche())
	aDruck = oSheet.getPrintAreas()
	Dim Props
	Dim sDrucker as String
	Props = ThisComponent.getPrinter()
	sDrucker = Props(0).value
	DIM arg(0) as new com.sun.star.beans.PropertyValue
	arg(0).name = "Wait"
	arg(0).value = True
	ThisComponent.print(arg())
	
End Sub

[komma4]

Willkommen im Forum.

Es funktioniert aber der Code scheint mir zu "groß" zu sein.

Wenn es funktioniert... never touch a running system
Mir scheint nichts Überflüssiges vorhanden zu sein, ausser:

für was holst Du Dir aDruck ... wenn Du es nicht mehr verwendest?