Newsgroup: it.comp.lang.visual-basic
Titolo: stampare un foglio

ho bisogno di fare una stampa di un foglio a4 interamente scritto ma che sia
perfetto dal punto di vista qualitativo; allora ho pensato: perchè non farlo
tramite word? ho provato ad inserire il documento di word tramite
"componenti -> oggetti inseribili" e appare un foglio bianco. a questo punto
è possibile modificarlo per creare campi da compilare e linee per poi
permettere di modificare solo i campi? mi spiego meglio: io devo creare un
database di persone con informazioni di diverso tipo, da quelle anagrafiche
a quelle mediche; si potrebbe fare tranquillamente con access, ma poi devo
fare la stampa di alcuni documenti che riepilogano le informazioni; è per
questo che ho bisogno di stampare in a4.
comunque, dopo aver inserito il documento di word, quest'ultimo, all'avvio
dell'applicazione, appare dello stesso colore del form e per poterlo
modificare devo fare doppio click su di esso e poi è comunque modificabile
in ogni sua parte. insomma, io vorrei creare un form che abbia i campi da
compilare e poi, al momento della stampa, le informazioni vengano stampate
su carta in un ordine che non sia necessariamente quello del form.
non so sono riuscito a spiegare bene quello che dovrei realizzare, ma se
solo qualcuno riuscisse a darmi un aiuto gliene sarei molto grato.
Andrea

 su carta in un ordine che non sia necessariamente quello del form.
ok metti solo word trai riferimenti del progetto e poi metti un bottone tipo
"compila" , una label e un txtbox con index a 0
poi apri un documento word e inserisci dei _segnalibri_ al posto dei campi
da cambiare poi sul bottone Compila metti :
8<-----------------------------
    Set myWd = New Word.Application
    myWd.Visible = False
    Set myWdDoc = myWd.Documents.Add(IndirizzoDelFileDoc)
    'aggiorno i campi dentro il mio doc word
    BMCont = myWd.ActiveDocument.Bookmarks.Count 'contatore BookMark
    If BMCont <= 0 Then
        MsgBox "Non ci sono campi da compilare!"
        GoTo salto1
    End If
    For i = 1 To BMCont
        Load lblBM(i) ' carico una label con il titolo del BookMark
        Load txtBM(i) ' carico un txtbox vuoto per scriverci
        lblBM(i).Caption = myWd.ActiveDocument.Bookmarks(i).Name & " "
        'txtBM(i).Text = ""
        lblBM(i).Visible = True
        txtBM(i).Visible = True
         'TODO: Posizionare la label e la txtbox
    Next i
salto1:
    myWd.ActiveDocument.Close ' chiudo sia il file che word
    myWd.Quit
    Set myWdDoc = Nothing
    Set myWd = Nothing
8<-----------------------------

Non e' piu' semplice l'oggetto printer? fai tutto quello che vuoi come 
vuoi.....
-- 
Vincent
VB6+SP5 Windows 2000 SP3
MSDE 7

 da cambiare poi sul bottone Compila metti :
[CLIP]
Bella cosa!!
C'e' già un esempio così sul Sito Comune? Non credo...
Che ne dici di farne un progettino ed inviarlo al SC?
Ciao
Ettore Maronese,
il Mes

Che ne dici di farne un progettino ed inviarlo al SC?
Eh sì, è tornato... :-P
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 Eh sì, è tornato... :-P
hehehe...  ^___^
CIAOOOO
Ettore Maronese
il Mes che nn cambia mai
Il Sito Comune del NG:  
http://www.it-lang-vb.net

 Che ne dici di farne un progettino ed inviarlo al SC?
Umm umm , ne sarei lieto ma ricordo che e' solo una delle tante strade che
questo NG mi ha offerto (groups.google) non e' nemmeno tanto comodo perche'
si deve attivare la visualizzazione dei BookMark in Word che e' disabilitata
per default!
Cmq se serve lo faccio , che mi dite ?
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 Cmq se serve lo faccio , che mi dite ?
Allora ? Vado ? Lo faccio ? Ditemi voi


Ma si ... fallo.  ^_^
Ettore Maronese
il Mes