Visual Basic 6 - invio a stampante

Forum - Visual Basic 6 - invio a stampante

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 16:50
Lunedì, 26/11/2007

Ciao a tutti , ho un enorme problema :
devo mandare delle stampe ad una stampante/etichettatrice .
Come devo comportarmi ?
Che dati della stampante o altro mi necessitano ?
Chi e' cosi' gentile da farmi un esempio ?
Grazie in anticipo.

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 17:32
Lunedì, 26/11/2007

Basta che usi il metodo printer

Codice sorgente - presumibilmente Plain Text

Form1.Print Text1.Text 
Form1.PrintForm 
Printer.EndDoc

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:39
Lunedì, 26/11/2007

vai a questo link
http://www.pierotofy.it/pages/download.php?filename=100p97 ...

cè un prog che ho fatto io dovrebbe esserti d' aiuto :k:

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 8:05
Martedì, 27/11/2007

Scusatemi ragazzi , ma probabilmente sono stato un po' vago : la stampante alla quale devo inviare la stampa non e' una stampante "standard" , ma e' un'etichettatrice per codici a barre.
Oltre a questo , tale stampante non e' neanche selezionata come di default .
Grazie di nuovo.

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 13:10
Martedì, 27/11/2007

Testo quotato

Postato originariamente da antometal:

vai a questo link
http://www.pierotofy.it/pages/download.php?filename=100p97 ...

cè un prog che ho fatto io dovrebbe esserti d' aiuto :k:

Ciao, ho visto questo tuo programma e ho trovato un errore quando premi il pulsante Apri scheda e poi chiudi la dialogbox senza selezionare alcun file.

Codice sorgente - presumibilmente VB.NET

Private Sub cmdApri_Click()
Dim Dato As String
Dim Dati() As String
CDScheda.ShowOpen
    If CDScheda.CancelError = True Then Exit Sub
 
Open CDScheda.FileName For Input As 1
 
Input #1, Dato
Close
Dati = Split(Dato, "|")
txtXcorso.Text = Normale(Dati(0))
Inizializzazione
txtAltezza = Normale(Dati(1))
txtLarghezza = Normale(Dati(2))
txtDestro = Normale(Dati(3))
txtSuperiore = Normale(Dati(4))
optFoglio(0).Value = Abs(Dati(5))
optFoglio(1).Value = Abs(Dati(6))
optOrientazione(0).Value = Abs(Dati(7))
optOrientazione(1).Value = Abs(Dati(8))
 
End Sub

andrebbe corretto cosi:

Codice sorgente - presumibilmente VB.NET

Dim Dato As String
Dim Dati() As String
CDScheda.ShowOpen
    If CDScheda.CancelError = True Then Exit Sub
[b]If CDScheda.FileName = "" Then Exit Sub[/b]
Open CDScheda.FileName For Input As 1
 
Input #1, Dato
Close
Dati = Split(Dato, "|")
txtXcorso.Text = Normale(Dati(0))
Inizializzazione
txtAltezza = Normale(Dati(1))
txtLarghezza = Normale(Dati(2))
txtDestro = Normale(Dati(3))
txtSuperiore = Normale(Dati(4))
optFoglio(0).Value = Abs(Dati(5))
optFoglio(1).Value = Abs(Dati(6))
optOrientazione(0).Value = Abs(Dati(7))
optOrientazione(1).Value = Abs(Dati(8))
 
End Sub

Comunque è un bel progetto.
Ciao. :k:

Ultima modifica effettuata da LuigiBiasi il 27/11/2007 alle 13:21

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 19:27
Martedì, 27/11/2007

Grazie 1000 correggerò
il problema xo è che nella simulazione nn da errore invece nell' eseguibile si

Riguardo alla stampa dei codice a barre per modificare la stampante predefinita devi usare la proprietà
devicename o drivername
e poi metti il nome completo della stampante
es. printer.devicename="HP 6210...."
poi fai delle prove per vedere se stampa e come

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 8:01
Mercoledì, 28/11/2007

Grazie raga siete sempre cosi' disponibili, provero' al piu' presto , ma son sicuro che con questi aiuti funzionera'.