[VB6] Printer e stampa di fogli bianchi

[canna]

quando stampo da una tabella più righe e supero una pagina mi stampa tredici pagine vuote nell'intervallo tra l'ultima e le centrali sfalzando la stampa e mettendo parti di essa sparza nei vari fogli
in realtà il contenuto non dovrebbe superare le 2 pagine al massimo tre.
Sto impazzendo

PS. se esiste un metodo per stampare le tabelle baipassando le variabili etc.. fatemi sapere.


Public Sub Stampa()
On Error GoTo Errore
Dim col2 As String * 40, Col3 As String * 6, Col4 As String * 10, col5 As String * 7, col6 As String * 10, VarXY
Printer.ScaleMode = vbCentimeters 'imposta l'unità di misura
Printer.Orientation = 2
Printer.ScaleLeft = -1
Printer.ScaleTop = -1
Printer.ColorMode = 1 'stampa in bianco e nero
Printer.FontName = "Courier" 'seleziona il carattere
Printer.Copies = 1

Printer.FontSize = 8 'imposta la grandezza del testo
Printer.CurrentX = 1 'assegna le coordinate
Printer.CurrentY = 0.5 'assegna le coordinate
Printer.Print "*** cnn2000.it ***"; " "; Date; " "; Time

Printer.FontSize = 6 'imposta la grandezza del testo

Printer.CurrentX = 3 'assegna le coordinate
Printer.CurrentY = 1 'assegna le coordinate
Printer.Print "Tessera Num:", FrmUsato.TxtNTessera.Text

Printer.CurrentX = 3 'assegna le coordinate
Printer.CurrentY = 1.5 'assegna le coordinate
Printer.Print "Cognome:", FrmUsato.TxtCognome.Text

Printer.CurrentX = 3 'assegna le coordinate
Printer.CurrentY = 2 'assegna le coordinate
Printer.Print "Nome:", FrmUsato.TxtNome.Text

Printer.FontSize = 10 'imposta la grandezza del testo
Printer.CurrentX = 0.5 'assegna le coordinate
Printer.CurrentY = 3 'assegna le coordinate
VarXY = Printer.CurrentY

FrmUsato.Tabella.Row = 0

Do While FrmUsato.Tabella.Rows < 100

FrmUsato.Tabella.Col = 2
col2 = FrmUsato.Tabella.Text
FrmUsato.Tabella.Col = 3
Col3 = FrmUsato.Tabella.Text
FrmUsato.Tabella.Col = 4
Col4 = FrmUsato.Tabella.Text
FrmUsato.Tabella.Col = 5
col5 = FrmUsato.Tabella.Text
FrmUsato.Tabella.Col = 6
col6 = FrmUsato.Tabella.Text
Printer.CurrentX = 0.5
Printer.CurrentY = VarXY
Printer.Print Trim(col2)
Printer.CurrentX = 13
Printer.CurrentY = VarXY
Printer.Print Trim(Col3)
Printer.CurrentX = 15
Printer.CurrentY = VarXY
Printer.Print Trim(Col4)
Printer.CurrentX = 18
Printer.CurrentY = VarXY
Printer.Print Trim(col5)
Printer.CurrentX = 20
Printer.CurrentY = VarXY
Printer.Print Trim(col6)
VarXY = VarXY + 0.5
Printer.CurrentX = 0.5
Printer.CurrentY = VarXY
Printer.Print "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
FrmUsato.Tabella.Row = FrmUsato.Tabella.Row + 1
Printer.CurrentX = 0.5
VarXY = VarXY + 0.3
Loop

[Johnny_Depp]

per il VB esiste l'apposito subforum. sposto la discussione...

vedi se questa risposta può soddisfare la tua richiesta: http://forum.html.it/forum/showthrea...hreadid=673517

n.b. nel VB bisogna specificare anche la versione (sempre nel titolo della discussione: VB6 o VB.NET)

[canna]

no il problema non è quello.
ora il testo si allinea se la stampa rientra in un solo foglio
se è più lunga aggiunge altri fogli bianchi tra una riga e l'altra

[MMarzia]

non hai ancora spcificato la versione

[canna]

VB6

cmq ho risolto vedete se mi date la soluzione voi e poi vi dico come ho fatto

ciaoooo

[redshadow]

Ciao a tutti!
Proprio come da oggetto di questa discussione, anche io ho lo stesso identico problema!!
Stampando documenti di 2o3 pagine, mi vengono mandate in stampa decine di pagine vuote...
Se qualcuno ha già riscontrato questo problema ed ha trovato una soluzione, si faccia avanti!!
Grazie anticipatamente per l'aiuto!!
RedShadow

[oregon]

Non mi sembra il caso che tu ti "attacchi" ad una discussione del 2004 perche' potrebbe non avere nulla a che fare con il tuo problema (anche se l'effetto e' lo stesso).

Ti consiglio di porre la domanda correttamente, aprendo un nuovo thread, spiegando il problema, indicando tipo di stampante e codice usato ... altrimenti ci vuole la "palla di vetro" (potrebbe essere un banale problema di driver della stampante non aggiornati ma noi non potremmo mai saperlo ...)

[alka]

Originariamente inviato da oregon
Non mi sembra il caso che tu ti "attacchi" ad una discussione del 2004 perche' potrebbe non avere nulla a che fare con il tuo problema (anche se l'effetto e' lo stesso).

Ti consiglio di porre la domanda correttamente, aprendo un nuovo thread, spiegando il problema, indicando tipo di stampante e codice usato ... altrimenti ci vuole la "palla di vetro" (potrebbe essere un banale problema di driver della stampante non aggiornati ma noi non potremmo mai saperlo ...)

Confermo e sottoscrivo.

Aggiungo il suggerimento di leggere il Regolamento prima di aprire una nuova discussione.

Ciao!

[redshadow]

OK...purtroppo il codice da me utilizzato x la stampa interpreta degli stili di report salvati in alcuni file esterni e perciò è parecchio lungo ed elaborato.
In ogni caso vedrò di estrapolare un esempio più semplice che riproduce lo stesso problema.
Appena ho tutto il materiale pronto scrivo una nuova discussione e ne parliamo.
Le stampanti che non vanno sono una canon ed una epson (nella discussione posterò modelli e dettagli!)
Grazie,
Ciao!