Button drucken

[karolus]

Danke! Das hatte ich vorher so ähnlich schon drinnen, hat aber nicht funktioniert. So wie von dir geschrieben geht's.

Programmieren funktioniert nicht auf die Weise "irgendwie so ähnlich",

Mein Problem mit dem variablen Druckbereich löst das leider nicht. :/

Meine Güte - gib der Zelle "DruckbereichA4" eine DropDownAuswahl (→Daten→Gültigkeit... )

[Picco]

Der Druckbereich errechnet sich doch in der Tabelle, ich kann den Wert nur nicht in das Makro übergeben.

Falls dein Post die Lösung dazu war, war es mir zu kryptisch beschrieben um zu verstehen.

[Picco]

Okay, >> thisComponent.sheets("A4 drucken").getCellRangeByName("AG1").string << war die Lösung.

Komplett:

Code: Alles auswählen

sub A4_drucken_click
    dim printProp() as new com.sun.star.beans.PropertyValue
    ocontroller = thiscomponent.currentcontroller
    ocurrentsheet = ocontroller.activesheet
    osheet = Thiscomponent.sheets.getbyname("A4 drucken")

    orange = thisComponent.sheets("A4 drucken").getCellRangeByName("AG1").string
   	printrange = osheet.getcellrangebyname(orange)
	oAdress = printrange.RangeAddress
	
	Dim aDruckbereich(0)
	aDruckbereich(0) = oAdress
    osheet.setPrintAreas(aDruckbereich())
    
    ocontroller.activesheet = osheet
    thiscomponent.print(printProp)
    wait 1000
    ocontroller.activesheet = ocurrentsheet
        
    MsgBox("Seiten werden gedruckt.",64,"Etiketten-Tool")  
end sub

...und /close

[karolus]

Der Druckbereich errechnet sich doch in der Tabelle, ich kann den Wert nur nicht in das Makro übergeben.

Falls dein Post die Lösung dazu war, war es mir zu kryptisch beschrieben um zu verstehen.

Ich habe zwei Zeilen Code gepostet, die an offensichlicher Stelle eingefügt werden sollen, was daran jetzt kryptisch sein soll weiss ich auch nicht.

[Picco]

Mein Problem mit dem variablen Druckbereich löst das leider nicht. :/

Meine Güte - gib der Zelle "DruckbereichA4" eine DropDownAuswahl (→Daten→Gültigkeit... )

Falls dein Post die Lösung dazu war, war es mir zu kryptisch beschrieben um zu verstehen.

Ich habe zwei Zeilen Code gepostet, die an offensichlicher Stelle eingefügt werden sollen, was daran jetzt kryptisch sein soll weiss ich auch nicht.

Error404 Code not found.