Newsgroup: it.comp.lang.visual-basic
Titolo: [quasi OT] Stampante su COM

Ho una stampante per etichette collegata sulla porta seriale, su un pc con
sistema operativo NT 4, dotata di appositi driver, per cui la stampa viene
effettuata con un banale printer.print e compagia bella.
Il tutto funziona correttamente, ma il "documento", una volta stampato,
non viene eliminato dai processi in coda. Ulteriori invii di documenti
vengono correttamente eseguiti, la stampa viene effettuata, ma la coda si
allunga, e all'accensione della macchina compare il messaggio di sistema
relativo.
A parte che a mio avviso la colpa è esclusivamente del driver, e quindi mi
metterò a cercare informazioni specifiche, volevo chiedere:
1) A qualcuno di voi è mai successa una cosa del genere?
2) Se non trovassi il modo di risolvere il problema alla fonte (nuovo
driver o diversa configurazione dei parametri), posso "pulire" da
programma la coda di stampa?
tia
 
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 messaggio di sistema relativo.
Potresti postare il codice con cui stampi? Almeno i punti
salienti di inizio e fine stampa.
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
 

 salienti di inizio e fine stampa.
Uffi.
La palla di leggere il ng da Newsland è che se un messaggio non è
recentissimo rischi di perderlo di vista...
Ecco il codice, che risulterà formattato a caspita proprio a causa di
Newsland. Manca qualche dichiarazione, ma ovviamente non è quello il
problema.
Set Printer = Printers(PrIndex)
For CodEti = Val(tbPrimo.Text) To Val(tbUltimo.Text)
    For Ripet = 0 To Val(tbEti.Text) - 1
        StrEti = CStr(CodEti) & " " & cbMatBio.Text & " " & tbAnno.Text &
" (" & CStr(Ripet + Val(TbOrdine.Text)) & ")"
        Printer.CurrentX = Printer.ScaleWidth / 2 -
Printer.TextWidth(StrEti) / 2
        If Pag = 0 Then
            Printer.CurrentY = Printer.ScaleHeight / 4 -
Printer.TextHeight(StrEti) / 2
        Else
            Printer.CurrentY = Printer.ScaleHeight / 4 * 3 -
Printer.TextHeight(StrEti) / 2
        End If
        Printer.Print StrEti
        Pag = Not Pag
        If Not Pag Then Printer.NewPage
    Next Ripet
Next CodEti
Printer.EndDoc
Set Printer = Printers(OldPrinter)
Grazie per l'interessamento.


[SNIP]
Altra domanda.
Che stampante usi? Hai provato a cambiare stampante? 

 Hai provato a cambiare stampante?
Sě. E funziona correttamente.
La stessa stampante, quando ho fatto le prove sulla mia macchina di
sviluppo che monta W2000, funzionava bene.
Lunedě provo a installare i driver scaricati dal sito del produttore,
invece di quelli arrivati con la stampante, e guardo se cambia qualcosa.


 Sě. E funziona correttamente.
Ok e' un problema di driver. Non e' infrequente con windows nt.
Verifica anche se per caso fra le opzioni di stampa (specifiche del 
driver) c'e' qualcosa tipo "schedule print job" con una crocetta sopra 
(quand'anche poi l'opzione dicesse: immediately o affine). Toglila 
ovviamente.
Lokar

 ovviamente.
Thanks, verificherò sicuramente.


 Thanks, verificherò sicuramente.
Tanto per chiudere la questione...
Sono andato a verificare: nella finestra della stampante i vari documenti
restano anche dopo che la stampa è effettuata (e questa cosa non sono
riuscito a toglierla), ma se è andata a buon fine la stampa non viene
rilanciata e anzi allo spegnimento della macchina i documenti vengono
eliminati. L'utente ha fatto una certa confusione raccontandomi
l'accaduto: quello che stava uscendo dalla stampante non era il duplicato
di quanto stampato in precedenza, ma uno (o più) documenti che erano stati
inviati alla stampante quando quest'ultima era spenta...
