117 messaggi dal 26 settembre 2001
...come posso intterrompere un processo di stampa in esecuzione?
ho scritto:
While cancelpressed = False And nPagStampate < nPag + 1
'cicla per numero di righe che deve stampare per pagina
For i = 1 To nRighe
Printer.Print ch$
Next
Printer.NewPage
Wend
Printer.EndDoc


quando cancelpressed è a true (impostasto sull'onclick di un button)la stampa deve interrompersi.
Il metodo killdoc dell'oggetto printer non funziona perchè mi blocca la stampa solo se essa non è ancora in esecuzione.

Il metodo KillDoc ti cancella tutto quello che non è ancora in coda di stampa. Ma quello che hai nella coda il VB te lo stampa a meno di non usare API di windows. Prova con questo:

Declare Function AbortDoc& Lib "gdi32" (ByVal hdc As Long)

dove hdc è l'handle alla stampante.

Ciao

Andrea Palmatè
<b>Community Manager di http://www.aspitalia.com</b>

--
Andrea Palmatè
117 messaggi dal 26 settembre 2001
scusa,ho visto solo ora il tuo post.
dove devo inserire la dichiarazione di quella funzione?cosa devo aggiungere?


nella parte di dichiarazione generale di un form o in un modulo bas

Andrea Palmatè
<b>Community Manager di http://www.aspitalia.com</b>

--
Andrea Palmatè
117 messaggi dal 26 settembre 2001
ok, e poi sull'onclick cosa devo mettere per bloccare la stampa?
sono un po' inesperta....

<code>
AbortDoc Printer.hdc
</code>

ciao

Andrea Palmatè
<b>Community Manager di http://www.aspitalia.com</b>

--
Andrea Palmatè
117 messaggi dal 26 settembre 2001
niente da fare...non si blocca....

mi mandi via mail il sorgente?

andrea@aspitalia.com


Andrea Palmatè
<b>Community Manager di http://www.aspitalia.com</b>

--
Andrea Palmatè

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.