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