Newsgroup: it.comp.lang.visual-basic
Titolo: problema stampa

ho un piccolo problema di stampa, in pratica stampo un documento con
l'oggetto printerall'inizio del doc. stampo in alto a sinistra un logo e del testo,
succede questo:
avvio il programma per la prima volta, lancio la stampa e il logo e le
info appena sotto vengono stampate in alto tutte su di una riga,dalla seconda stampa in poi miracolosamente tutto viene stampato giusto
fino a che non chiudo il prog. riavviandolo succede di nuovo
qualcuno ha idea da che possa nascere sto problema?
grazie in anticipo
-- 
ghenkay

 
bye
r

copia! = 1
copia2:
' setto variabili di stampa
stepstampaY = 4
printrecord = 0
numerorighe = 18
numeropag = 1
Printer.CurrentX = 7
Printer.CurrentY = 7
Printer.PaintPicture frmname.Picture1.Picture, 28, 13, 45, 10
Printer.FontBold = True
Printer.FontSize = 10
Printer.CurrentX = 33
Printer.CurrentY = 25
Printer.Print "SRL-UNINOMINALE"
Printer.FontBold = False
Printer.FontSize = 8
Printer.CurrentX = 18
Printer.CurrentY = 29
Printer.Print "Sede: Circonval. Ovest - zona CO.IN.OR Lotto D6"
Printer.CurrentX = 35
Printer.CurrentY = 32
Printer.Print "15048 VALENZA (AL)"
Printer.CurrentX = 29
Printer.CurrentY = 35
Printer.Print "Capitale Sociale: Euro 10.000,00"
Printer.CurrentX = 15
Printer.CurrentY = 38
Printer.Print "C.F. P.IVA E n. iscr. R.I. di Alessandria 0206001 006 9"
Printer.CurrentX = 37
Printer.CurrentY = 41
Printer.Print "n. marchio AL 3470"
Printer.CurrentX = 26
Printer.CurrentY = 44
Printer.Print "Tel. 0131-945271 - FAX 0131-958053"
' eseguo stampa dati cliente
 
Printer.ScaleMode = 6
Printer.Line (100, 13)-(200, 60), , B
 
Printer.FontSize = 8
Printer.FontBold = False
 
Printer.CurrentX = 103
Printer.CurrentY = 15
Printer.Print "Data:"
 
Printer.CurrentX = 112
Printer.CurrentY = 15
Printer.Print frmname.DTPicker1.Value
 
Printer.CurrentX = 160
Printer.CurrentY = 15
Printer.Print "N° Documento:"
 
Printer.CurrentX = 182
Printer.CurrentY = 15
Printer.Print frmname.xpTextBox7.Text
 
Printer.CurrentX = 103
Printer.CurrentY = 22
Printer.Print "Ragione Sociale:"
 
Printer.CurrentX = 125
Printer.CurrentY = 22
Printer.Print frmname.xpTextBox1.Text
 
Printer.CurrentX = 103
Printer.CurrentY = 29
Printer.Print "Indirizzo:"
 
Printer.CurrentX = 116
Printer.CurrentY = 29
Printer.Print frmname.xpTextBox2.Text
 
Printer.CurrentX = 103
Printer.CurrentY = 36
Printer.Print "C.A.P:"
 
Printer.CurrentX = 112
Printer.CurrentY = 36
Printer.Print frmname.xpTextBox3.Text
 
Printer.CurrentX = 125
Printer.CurrentY = 36
Printer.Print "Città:"
 
Printer.CurrentX = 134
Printer.CurrentY = 36
Printer.Print frmname.xpTextBox4.Text
 
Printer.CurrentX = 103
Printer.CurrentY = 43
Printer.Print "Partita I.V.A./Cod. Fiscale:"
 
Printer.CurrentX = 137
Printer.CurrentY = 43
Printer.Print frmname.xpTextBox6.Text
 
Printer.Line (100, 47)-(200, 47)
 
Printer.CurrentX = 103
Printer.CurrentY = 48
Printer.Print "Destinazione se Diversa:"
Printer.CurrentX = 103
Printer.CurrentY = 52
Printer.Print frmname.xpTextBox18.Text
Printer.FontSize = 14
Printer.FontBold = True
Printer.CurrentX = 5 '135
Printer.CurrentY = 58 '7
Printer.Print "FATTURA"
Printer.ScaleMode = 6
Printer.FontSize = 8
Printer.FontBold = False
' eseguo stampa scrittura dettaglio articoli
 
Printer.Line (5, 63)-(35, 71), , B
 
Printer.CurrentX = 6
Printer.CurrentY = 63
Printer.Print "Foglio:"
Printer.CurrentX = 20
Printer.CurrentY = 67
Printer.Print numeropag
 
Printer.Line (35, 63)-(108, 71), , B
 
Printer.CurrentX = 36
Printer.CurrentY = 63
Printer.Print "Descrizione Pagamento:"
Printer.CurrentX = 70
Printer.CurrentY = 67
Printer.Print frmname.Combo1.Text
Printer.Line (108, 63)-(200, 71), , B
 
Printer.CurrentX = 109
Printer.CurrentY = 63
Printer.Print "Banca di Appoggio:"
 
Printer.CurrentX = 140
Printer.CurrentY = 67
Printer.Print frmname.xpTextBox10.Text
Printer.Line (5, 72)-(35, 77), &HFFFF00, BF
Printer.Line (5, 72)-(35, 236), , B
Printer.CurrentX = 11
Printer.CurrentY = 74
Printer.Print "Codice Articolo"
 
Printer.Line (35, 72)-(108, 77), &HFFFF00, BF
Printer.Line (35, 72)-(108, 236), , B
 
Printer.CurrentX = 64
Printer.CurrentY = 74
Printer.Print "Descrizione"
Printer.Line (108, 72)-(115, 77), &HFFFF00, BF
Printer.Line (108, 72)-(115, 236), , B
 
Printer.CurrentX = 108.5
Printer.CurrentY = 74
Printer.Print "U.M."
 
Printer.Line (115, 72)-(137, 77), &HFFFF00, BF
Printer.Line (115, 72)-(137, 236), , B
 
Printer.CurrentX = 120
Printer.CurrentY = 74
Printer.Print "Quantità"
 
Printer.Line (137, 72)-(158, 77), &HFFFF00, BF
Printer.Line (137, 72)-(158, 236), , B
Printer.CurrentX = 143
Printer.CurrentY = 74
Printer.Print "Prezzo"
 
Printer.Line (158, 72)-(167, 77), &HFFFF00, BF
Printer.Line (158, 72)-(167, 236), , B
 
Printer.CurrentX = 158
Printer.CurrentY = 74
Printer.Print "Sconto"
 
Printer.Line (167, 72)-(191, 77), &HFFFF00, BF
Printer.Line (167, 72)-(191, 236), , B
 
Printer.CurrentX = 173
Printer.CurrentY = 74
Printer.Print "Importo"
Printer.Line (191, 72)-(200, 77), &HFFFF00, BF
Printer.Line (191, 72)-(200, 236), , B
 
Printer.CurrentX = 193
Printer.CurrentY = 74
Printer.Print "C.I."
 
Printer.Line (5, 77)-(200, 77)
-- 
ghenkay

ghenkay wrote:
[cut]
forse manca questo:
Printer.ScaleMode = unita di misura che hai usato
bye
r


ed hai ragione!!!!! grazie ora funziona
-- 
ghenkay