Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa che fa impazzire

Salve , ho un problema che da neofita non riesco a risolvere in nessun
modo, ho trovato in rete questa routine per stampare, l'ho modificata (
come non lo so ancora :-) ) solo che non riesco a risolvere 2 problemi:
il 1° e che quando lancio la stampa la prima pagina è bianca
il 2° e che stampa i campi in successione scalandoli.
se qualcuno sapesse risolvermi il problema gliene sarei molto grato
perchè io sono al palo, allego il codice per chiarezza ed un esempio
della stampa :
___________________
Public Sub CreaPagina()
Printer.NewPage
Printer.CurrentX = 100
Printer.CurrentY = 10
Printer.FontBold = True
Printer.Print "CODICE"
Printer.CurrentX = 1500
Printer.CurrentY = 10
Printer.Print "DESCRIZIONE"
Printer.CurrentX = 4500
Printer.CurrentY = 10
Printer.Print "QUANTITA'"
Printer.FontBold = False
End Sub
---------------------------------------------------------
Private Sub cmdprint_Click()
Dim SpazioRighe As Long
Dim k As Long
Dim a As String
Dim b As String
Dim c As String
Dim RecordMax As Long
RecordMax = 20
SpazioRighe = 50
k = RecordMax
Do
If k = RecordMax Then
CreaPagina
k = 1
Else
k = k + 1
End If
If IsNull(adodcarkimpianti.Recordset.Fields("IDAdslTd")) Then
a = ""
Else
a = adodcarkimpianti.Recordset.Fields("IDAdslTd")
End If
If IsNull(adodcarkimpianti.Recordset.Fields("IDCliente")) Then
b = ""
Else
b = adodcarkimpianti.Recordset.Fields("IDCliente")
End If
If IsNull(adodcarkimpianti.Recordset.Fields("IDAttivita")) Then
c = ""
Else
c = adodcarkimpianti.Recordset.Fields("IDAttivita")
End If
Printer.CurrentY = Printer.CurrentY - SpazioRighe
Printer.CurrentX = 50
Printer.Print a
'Printer.CurrentY = Printer.CurrentY - SpazioRighe
Printer.CurrentX = 1500
Printer.Print b
'Printer.CurrentY = Printer.CurrentY - SpazioRighe
Printer.CurrentX = 4500
Printer.Print c
adodcarkimpianti.Recordset.MoveNext
If adodcarkimpianti.Recordset.EOF Then
Exit Do
End If
Loop Until adodcarkimpianti.Recordset.EOF
Printer.EndDoc
End Sub
-------------------------------------------------------------------------
es. stampa
codice                descrizione              quantità
01225
                         impianto
                                                          25
----------------------------------------------------------------------
Grazie mille per chiunque mi aiuti.
Fabrizio

 Printer.Print "CODICE"
[cut]

qui sopra stai alzando l'ordinata dove iniziare a scrivere
-- 
ciao, hal

CIao Hal
grazie per la dritta, l'ho provata e funziona, per quanto riguarda
l'unità di misura , non uso niente la routine che uso è tutta quella
che ho postato. come posso risolvere questo altro problema e mi voglio
fare male come posso inserire delle linee di separazione per rendere
pulita la stampa , se riesco a fare anche questo ho risolto tutto
ciap fabrizio

 pulita la stampa , se riesco a fare anche questo ho risolto tutto
certo che la punteggiatura non e` il tuo forte... ;-)
Per disegnare sul foglio, Printer mette a disposizione tutti i metodi
grafici del Form e della PictureBox: Line, Circle, PSet, PaintPicture.
-- 
ciao, hal

Ciao Hal, scusa per la poca chiarezza nella punteggiatura ma ho scritto
il msg a volo stamane prima di correre dal dentista e quindi ho saltato
un pò di tutto; in merito alla Tua risposta mi sarebbe di grande aiuto
( se possibile ) se Tu potessi postarmi un pò di codice di esempio,
sia per le coordinate di stampa che per i metodi grafici , in quanto io
ci metterei circa 1 mese per farlo "ex novo" visto che sono alle prime
armi ed il programmino che mi sono scritto è per uso personale.
Comunque Ti ringrazio per la disponibilità e spero di risentirti. Ciao
Fabrizio

Ciao senti se vuoi ti risolvo subito il problema xò mi devi mandare una 
copia del programma in modo che la vedo e ti dò tutti i consigli...
Io ho fatto un sito sul quale nei download ho pensato di inserire anke la 
programmazione e la possibilità di scaricare dei programmi fatti dalle 
persone in modo gratis (semplici programi) con il nome della persona che 
l'ha fatto se tu vuoi partecipare cm stanno facendo molte persone mi fai 
sapere... ciao l'amministratore di 
www.royaldj.tk
 

 ha
scritto:

Dai un occhiata a questi esempi:
http://www.maurorossi.net/pagine/codice/stringhe.htm
--
ciao
  Stefano