[VB6] Stampare il contenuto di un form

[Duccino]

forse anche dall'oggetto si capisce che sono alle prime armi..
problema: ho bisogno di stampare delle etichette, con 3 valori: Nome Cognome indirizzo

ho creato un form in cui ho inserito 3 oggetti
Nome -
Cognome
Indirizzo

ed un quarto oggetto che si chiama Numero di Copie
una volta compilati i campi, clicco sul pulsante Stampa e mi stampa Numero di Copie Etichette.

grazie a chiunque mi possa aiutare!

[Rumez]

stampare dove?
a video in una label/textbox/textarea?
su una messagebox?
su un file?
sulla stampante?

[Duccino]

stampare dove?
a video in una label/textbox/textarea?
su una messagebox?
su un file?
sulla stampante?

scusa, devo stampare sulla stampante predefinita del pc.
in etichette di misura (lunga: 4,5 cm : alta: 2 cm)

mi potete indicare anche qualche sito dove posso prendere spunti e riferimenti..grazie

[Rumez]

beh il comando a cui passi i valori è:

Printer.Print

devi guardare un po' i metodi e le proprietà di quel comando in modo da impostare la stampa a tuo piacimento

[Duccino]

beh il comando a cui passi i valori è:

Printer.Print

devi guardare un po' i metodi e le proprietà di quel comando in modo da impostare la stampa a tuo piacimento

ok, ho trovato documentazione in modo da impostare la stampa in quell'area.
per impostare il numero di stampe, sai se c'e' un comando particolare o e' nelle proprieta' di Printer.Print ?
grazie ancora

[© rocky]

ok, ho trovato documentazione in modo da impostare la stampa in quell'area.
per impostare il numero di stampe, sai se c'e' un comando particolare o e' nelle proprieta' di Printer.Print ?
grazie ancora

Ho trovato qualcosa che ti può aiutare.

Codice: Seleziona tutto

Private Sub CmdStampa_Click()
    With Printer             ' < Inizializza attributi di stampa.
    .ScaleMode = vbCharacters
    .FontBold = False
    .FontName = "Courier New"
    .FontSize = 12
    .FontItalic = False
    End With
  For n = 1 To 10            ' < Numero di copie 10
    Printer.CurrentX = 8       ' < Spaziatura orizzontale.
    Printer.CurrentY = 4       ' < Spaziatura verticale.
    Printer.Print "Tutto quello che vuoi stampare"
  Next n
  EnDoc
   End Sub

Spero ti possa essere d'aiuto

[Robby78]

se vuoi provare, c'è anche il metodo "PrintForm" della form stessa, ma quello che ti hanno già suggerito è migliore