OpenOffice.info

Willkommen im Forum.


[quote="djimno"]Es funktioniert aber der Code scheint mir zu "groß" zu sein.[/quote]

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

für was holst Du Dir [color=#008000]aDruck[/color] ... wenn Du es nicht mehr verwendest?

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

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]
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
[/code]