OpenOffice.info

Verfasst: **Sa, 24.08.2013 23:13**

Hi,
versuche es mal hiermit:

sub S_print_Tabelle1
    dim printProp() as new com.sun.star.beans.PropertyValue
    ocontroller = thiscomponent.currentcontroller
    ocurrentsheet = ocontroller.activesheet
    osheet = Thiscomponent.sheets.getbyname("Tabelle1")
    ocontroller.activesheet = osheet
    thiscomponent.print(printProp)
    wait 1000
    ocontroller.activesheet = ocurrentsheet
end Sub

sub S_print_Tabelle2
    dim printProp() as new com.sun.star.beans.PropertyValue
    ocontroller = thiscomponent.currentcontroller
    ocurrentsheet = ocontroller.activesheet
    osheet = Thiscomponent.sheets.getbyname("Tabelle2")
    ocontroller.activesheet = osheet
    thiscomponent.print(printProp)
    wait 1000
    ocontroller.activesheet = ocurrentsheet
end Sub

Gruß R

OpenOffice.info

Makro Druckbereich

Re: Makro Druckbereich