OpenOffice.info

Verfasst: **Fr, 31.05.2013 02:49**

Hallo,

ich möchte gerne aus einem Tabellenblatt zwei Bereiche Ausdrucken Zelle A1:AG25 auf die erste Seite
auf der zweiten Seite den Bereich Zelle AH1:BM25. Habe mir gedacht das ich wenn ich das Makro von
F3K Total nehme

Sub printerprint
dim printProp(1) as new com.sun.star.beans.PropertyValue
printProp(0).name = "Wait"
printProp(0).Value = true
printProp(1).name = "CopyCount"
printProp(1).Value = 2 'wenn es dreimal gedruckt werden soll -> die zwei durch eine drei ersetzen
ThisComponent.Print(printProp())
end sub

habe dann nach anderen Makros geschaut wie die so aussehen. Diesesen Bereich den ich Drucken
möchte in das Makro eingesetzt, habe gehofft das es klappt aber so einfach geht es dann doch nicht

schade.

Sub printerprint
dim printProp(1) as new com.sun.star.beans.PropertyValue
printProp(0).name = "Wait"
printProp(0).Value = true
printProp(0).name = "TO Point"
printProp(0).Value = "$A$1:$AG$25"
printProp(1).name = "CopyCount"
printProp(1).Value = 2 'wenn es dreimal gedruckt werden soll -> die zwei durch eine drei ersetzen
ThisComponent.Print(printProp())
end sub

jetzt bin ich auf die Hilfe von Euch angewiesen, F3K Total aber machs bitte
nicht zu teuer

und sag schonmal ein dickes DANKE für Eure Mühe

Viele Grüße

NP

Verfasst: **Fr, 31.05.2013 16:58**

Södele

Code: Alles auswählen

Sub printerprint_selected_ranges
    dim oRanges(0)
    osheet = thiscomponent.currentcontroller.activesheet
    oRanges(0) = osheet.getcellrangebyname("A1:AG25").RangeAddress'Bereich 1
    osheet.setprintareas(oranges)
    dim printProp(1) as new com.sun.star.beans.PropertyValue
    printProp(0).name = "Wait"
    printProp(0).Value = true
    printProp(1).name = "CopyCount"
    printProp(1).Value = 2 'wenn es dreimal gedruckt werden soll -> die zwei durch eine drei ersetzen
    ThisComponent.Print(printProp())'Bereich 1 drucken
    oRanges(0) = osheet.getcellrangebyname("AH1:BM25").RangeAddress'Bereich 2
    osheet.setprintareas(oranges)
    printProp(0).name = "Wait"
    printProp(0).Value = true
    printProp(1).name = "CopyCount"
    printProp(1).Value = 2 'wenn es dreimal gedruckt werden soll -> die zwei durch eine drei ersetzen
    ThisComponent.Print(printProp()) 'Bereich 2 drucken
end sub

Gruß R

Verfasst: **Fr, 31.05.2013 20:14**

Hallo F3K Total,

vielen Dank für die schnelle Hilfe, da wollte ich es mir aber ein bissel zu Einfach machen

und so hätte ich es nie hinbekommen.

Viele Grüße

NP

OpenOffice.info

Druckbereich festlegen über ein Makro

Druckbereich festlegen über ein Makro

Re: Druckbereich festlegen über ein Makro

Re: Druckbereich festlegen über ein Makro