VB & Word orientamento pagina (era: La parola magica)

[dirtyj]

Datemi una mano!!!! Vb e word.... anteprima di stampa (tutto fatto e tutto funzionante) adesso ho un solo problema, come cambio l'allineamento della pagina da verticale ad orizontale?

ad esempio in questa pagina:

Private Sub Anteprima_Click()
intestazione
precorpo
tabella_corpo
chiusura
End Sub
Sub precorpo()
objDoc.ActiveWindow.Selection.InsertAfter "Elenco fatture"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Stampato del: " & Date
objDoc.ActiveWindow.Selection.InsertParagraphAfter
End Sub


Sub intestazione()
contarecord = 0
riga = 1
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add
objDoc.Activate
objWord.Visible = True
objDoc.ActiveWindow.Document.ShowSpellingErrors = False
objWord.Visible = True
objDoc.ActiveWindow.Selection.Font.Name = "Tahoma"
objDoc.ActiveWindow.Selection.Font.Size = 8
objDoc.ActiveWindow.Selection.InsertAfter "IMPRESA CARGINI ANTONIO"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Name = "Tahoma"
objDoc.ActiveWindow.Selection.Font.Size = 14
objDoc.ActiveWindow.Selection.InsertAfter "P.I. 00670730673"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "C.C.I.A.A. 19826"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "R.E.A. 88081"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Sistema qualità UNI EN ISO 9001 Cert. n. 115099"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "_________________________________________________ __________________________________________________ ____"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertParagraphAfter

End Sub
Sub tabella_corpo()
objDoc.ActiveWindow.Selection.InsertAfter Me.corpo_fatture.Text
objDoc.ActiveWindow.Selection.InsertParagraphAfter

End Sub
Sub chiusura()
objDoc.ActiveWindow.Selection.InsertAfter "_________________________________________________ __________________________________________________ ____"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Sede legale: Fraz. Villa Brozzi 64046 NONTORIO AL V."
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Sede operativa: Piazza Dante, 15 64100 Teramo (TE) - Tel: 0861 243746 Fax: 0861 255099"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Sede distaccata: Via Pieragostino, 23 62032 Camerino (MC) - Tel e Fax: 0737 630413"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Indirizzo internet: www.impresacargini.it - cargini@email.it"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.PrintPreview

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add
objDoc.Activate
'chiude il documento senza salvarlo
objDoc.ActiveWindow.Close (False)
End Sub



Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim strCnxn As String
Dim conn As ADODB.Connection
Dim corpo_t As String
Dim indice As Integer
Dim corpo_t_t As String
Dim corpo_t_t_t As String
Dim corpo_t_t_t_t As String

indice = 0
Dim rs As ADODB.Recordset
'Definizione del recorset

' Apri la connessione
Set conn = New ADODB.Connection
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\contabilizzazione.mdb;Persist Security Info=False"
conn.Open strCnxn

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM fatture", conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
indice = indice + 1
corpo_t = indice & "-" & vbCrLf
corpo_t_t = "Fattura numero " & rs!nr_fatt & " Fornitore: " & rs!Fornitore & vbCrLf
corpo_t_t_t = "Data documento: " & rs!data & " Data registrazione:" & rs!data_reg & vbCrLf
corpo_t_t_t_t = "Totale a fatturare Euro: " & rs!totale & vbCrLf
corpo_fatture.Text = corpo_fatture.Text + corpo_t + corpo_t_t + corpo_t_t_t + corpo_t_t_t_t
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

End Sub

ciao e grazie!!!!

[Johnny_Depp]

ti sposto sul forum "Visual Basic".

[ladyBlu]

Originariamente inviato da Johnny_Depp
ti sposto sul forum "Visual Basic".

collega, perchè fai il lavoro a metà? :gren:



@dirtyj:
se vuoi che qualcuno ti aiuti, ti consiglio di mettere il codice nei tag appositi [*CODE]codice[*/CODE] che rendono tutto più leggibile.

[xonica]

si utilizza la funzione

docWord.PageSetup.Orientation = wdOrientLandscape (orizzontale)