[de-users] Basic >> nur aktuelle Seite >> formatiere Zeilenhoehe, dann drucke

[Achim Pabel Liebe]

Liebe Kolleg -en -innen,

ich versuche mich seit geraumer Zeit in Basic ... aber es will mir nicht 
gelingen :-(

Ich habe schon VERSCHIEDENE Experimente hinter mir ...

Kann mir jemand sagen wie ich es richtig mache:
( unten ist ein Teil meines K(r)ampf-Codes zu sehen ... )

Wenn im aktuellen Sheet auf den Button "Formatiere und Drucke" geklickt wird,
dann soll passieren:

1.) Formatiere im AKTUELLE Sheet
        die Zeilen (z.B.) 5,6,7,8,9,10
        auf Standarthöhe
        ( Derzeit formatiert meine Sub immer die Tabelle_1 )
2.) Drucke nur das AKTUELLE Sheet
        ( Derzeit werden alle Blätter gedruckt )

Wer holt mich aus meinen Weinkrampf wieder raus und baut mich wieder auf ?

LG
- 
Achim Pabel
Langer Weg 3
65760 Eschborn

0171  / 702 701 7
06173 / 966 489


##############################################

sub Tabelle_1_Zeilenhoehe
        Dim Doc As Object
        Dim Sheet As Object
        
        Dim Row As Object
        Dim Col As Object
        Dim I As Integer

        Doc = StarDesktop.CurrentComponent
        Sheet = Doc.Sheets( "Tabelle_1" )
        REM     Sheet = Doc.Sheets( SheetName )

        For I = 4 To 9
                Row = Sheet.Rows(I)
                Row.Height = 450
        '       Row.OptimalHeight = True
        Next I

        Col = Sheet.Columns(1)
        Col.IsVisible = False
end sub


sub Tabelle_1_drucken
        dim document   as object
        dim dispatcher as object

        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

        dim args1(2) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "Copies"
        args1(0).Value = 1
        args1(1).Name = "Selection"
        args1(1).Value = true
        args1(2).Name = "Collate"
        args1(2).Value = false

        dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())
end sub

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]