Alle 12:54, martedì 20 giugno 2006, Michel Morelli ha scritto:
> Paolo Mantovani ha scritto:
> [SNIP]
>
> Mitico :)
> E se avessi un file di CALC ???
teoricamente il codice è molto simile, però, per un lavoro accurato
occorrerebbe tenere conto in qualche modo delle aree di stampa.
Se non hai esigenze particolari però, si può riutilizzare più o meno quanto
già realizzato per writer (vedi codice sottostante)
ciao
Paoolo M
NB: non ho fatto nessun test e non sono nemmeno sicuro che funzioni, perciò
massima cautela!
------------------------------
Sub Main
for each sheet in ThisComponent.sheets
'ottiene lo stile di pagina della tabella corrente
sCurPageStyleName = sheet.PageStyle
oPageStyles = ThisComponent.StyleFamilies.PageStyles
oCurPageStyle = oPageStyles.getByName(sCurPageStyleName)
'modifica del formato pagina
With oCurPageStyle
.Width = 21000 'mm/100
.Height = 29700 'mm/100
.IsLandscape = False
End With
next sheet
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
