Druckmakro

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

djimno
Beiträge: 6
Registriert: Fr, 29.04.2011 15:32

Druckmakro

Beitrag von 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
Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Druckmakro

Beitrag von komma4 »

Willkommen im Forum.

djimno hat geschrieben: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?
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Antworten