Oppure

Loading
26/11/07 15:50
mash_mash
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.
aaa
26/11/07 16:32
gius
Basta che usi il metodo printer
Form1.Print Text1.Text 
Form1.PrintForm 
Printer.EndDoc
aaa
26/11/07 17:39
antometal
vai a questo link
pierotofy.it/pages/…

cè un prog che ho fatto io dovrebbe esserti d' aiuto:k:
aaa
27/11/07 7:05
mash_mash
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.
aaa
27/11/07 12:10
LuigiBiasi
Postato originariamente da antometal:

vai a questo link
pierotofy.it/pages/…

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.

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:
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 27/11/07 12:21
aaa
27/11/07 18:27
antometal
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
aaa
28/11/07 7:01
mash_mash
Grazie raga siete sempre cosi' disponibili, provero' al piu' presto , ma son sicuro che con questi aiuti funzionera'.
aaa