[VB6] Print

[Petra]

ciao a tutti...spero che qualcuno possa darmi una mano.

In pratica ho sviluppato un piccolo programma che mi consente di stampare dei preventivi. Come in ogni preventivo a fondo pagina ci sono le "Note". In queste "Note" c'è molto testo ed in foglio A4 non ci stanno se non vado a capo.

Dato che utilizzo l'oggetto "print", qualkuno saprebbe indicarmi un modo per andare a capo ? ?

[yyzyyz]

nn ho capito se x a capo intendi una nuova pagine, ma se le note sono molto lunghe stampa tutto su una pagina nuova.

Printer.NewPage

[tas]

Il metodo Print di VB6 non è capace di mandare a capo il testo quando supera la larghezza della pagina, devi costruirti una funzione in grado di spezzare automaticamente il testo. Per sapere dove spezzare il testo utilizza la funzione TextWidth(txt) e confronta questa misura con la larghezza utile del tuo foglio (larghezza pagina meno i margini). Naturalmente sarebbe opportuno spezzare il testo in corrispondenza di particolari caratteri (spazio, punteggiatura ecc.) e questo non fa altro che complicare la cosa. Se vuoi una base di partenza guarda questo esempio:

Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters
    
    Printer.CurrentY = 20
    
    Call PrintWordWrap(Text1.Text, 10, 200)

    Printer.EndDoc
End Sub

Public Sub PrintWordWrap(txt As String, left As Single, right As Single)
    Dim out() As String
    Dim i As Integer
    
    out = Split(txt, " ")
    
    Printer.CurrentX = left
    
    For i = 0 To UBound(out)
        If Printer.CurrentX + Printer.TextWidth(out(i)) > right Then
            Printer.Print
            Printer.CurrentX = left
        End If
        Printer.Print out(i) & " ";
    Next
End Sub

I parametri della funzione sono il testo da stampare, il margine sinistro e quello destro. Questo codice l'ho buttato giù di corsa e va senz'altro perfezionato, ciao

[Petra]

Grazie mille...proverò ad elaborare il codice...poi ti faccio sapere!!

[Petra]

è perfetto come me l'hai postato...grazie!