VBscript formato pagina

[hobbit]

Buonasera,
ho difficoltà ha modificare le impostazioni del formato della pagina utilizzando VBscript.
In particolare devo impostare per un foglio di calcolo il formato orizzontale.
Ho trovato questo codice sul manuale di VbaStarOffice ma non riesco a tradurlo in istruzioni valide per il VBscript.
Qualcuno può aiutarmi? Grazie

Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Doc = StarDesktop.CurrentComponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.IsLandscape = True
DefPage.Width = 21000
DefPage.Height = 14800

[patel]

VBscript ? VbaStarOffice ? spiegati meglio, dove li hai trovati ? Non siamo su Excel.

[hobbit]

Ho scritto sul Forum di OpenOffice proprio perché devo operare con Apache OpenOffice Calc ma utilizzando il linguaggio di script di Microsoft VBscript.
Non sto dicendo un'eresia in quanto sfruttando l'interfaccia UNO (Universal Network Objects) e un linguaggio ad oggetti è possibile sfruttare le API di OpenOffice.
Il mio problema non è chiedere se è possibile farlo in quanto l'ho già utilizzato precedentemente, ho difficoltà nel passare i parametri di formattazione della pagina.
Spero di trovare qualcuno che mi possa aiutare.
Grazie.

[patel]

Oltre che a chiedere potresti anche rispondere a chi ti chiede lumi, potrebbe interessare anche ad altri.

[Gaetanopr]

Non sto dicendo un'eresia

Nessuno sta dicendo questo ti è stato semplicemente chiesto di spiegarti meglio.

ho difficoltà nel passare i parametri di formattazione della pagina.

Se ti riferisci al formato orizzontale del foglio prova in questo modo

Codice: Seleziona tutto

Sub Main
Dim Props() As New com.sun.star.beans.PropertyValue
Dim mDI(0) As New com.sun.star.beans.PropertyValue
mDI(0).Name = "PaperOrientation"
mDI(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
Dim adrZones(0) As New com.sun.star.table.CellRangeAddress
Foglio = ThisComponent.Sheets(0) 
adrZones(0) = Foglio.RangeAddress
Foglio.PrintAreas = adrZones()
ThisComponent.setPrinter( mDI )
ThisComponent.Print(Props()) 
End Sub

La macro stampa il foglio1 in formato orizzontale

[hobbit]

Chiedo scusa a Patel non volevo essere scortese.

Ho provato il codice inviato da Gaetanopr ma in VBscript si blocca già sulla prima riga non è la sintassi corretta.

La funzione che hai utilizzato nella prima riga l'avevo provata in precedenza e la sintassi in VBscript è:

Dim Props (), oSM
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set Props = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")

purtroppo provando il resto non mi funziona.
Penso che il problema sta proprio qui, cioè tradurre nel modo corretto il basic utilizzato nelle macro in VBscript.

[Gaetanopr]

Penso che il problema sta proprio qui, cioè tradurre nel modo corretto il basic utilizzato nelle macro in VBscript.

Allora credo di non aver capito, entrambi i codici sia il tuo che il mio a me funzionano su OpenOffice, lo stesso codice tradotto in Vba potrebbe essere qualcosa del genere

Codice: Seleziona tutto

Option VBASupport 1 
Sub Pagina

ActiveSheet.PageSetup.Orientation = xlLandscape
      
End Sub