Anteprima di stampa da VB a word.. tutto fatto!
Problema come cambio l'orientamento della pagina da verticale ad orizontale in un form come questa ad esempio?
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
Datemi una mano!
