[Visual studio 2008] - Creare layout di stampa con Label.text ricavate da textbox

[Miitiicoo83]

Ciao a tutti, piccolo quesito, vediamo se risolvo velocemente e senza intoppi.

Ho una scheda dettagliata di un cliente composta da più textbox che mi si popolano in base ad un doppio click che faccio su un datagridviewer. Fino a quà tutto ok.
QUello che serviva a me è la creazione di un form, con tante label (o almeno è quello a cui avevo pensato) dove il valore "text" lo va a pescare dal form dove c'è il dettaglio del cliente in modo che creo una specie di layout di stampa con i dati che mi si variano in base alla scheda aperta.

Passo a fare un piccolo esempio scritto e poi posto il codice che ho provato a usare:

se stò visualizzando la scheda del dettaglio di Rossi (Nome), sul form la label1 volevo che come text sia Rossi.

su vb6, usavo la funzione label.caption = form1.textbox1.caption

ho chiaramente sostituito caption con text ed il risultato è che non mi compare niente.

PS: non so se è fondamentale, ma le textbox sono con enabled=false; anche se ho provato a dichiararle enabled = true prima di eseguire la prova.

Grazie mille

[Neo996sps]

fai così, aggiungi un controllo printdocument e assegna l'evento printpage. Poi ti inserisci il codice. Ti posto un esempio:

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim space As String = " "
        Dim codice As Integer = IdclienteTextBox.Text
        Dim codiceassoluto As Integer
        codiceassoluto = Abs(codice)
        Dim Font1 As New Font("Verdana", 18, FontStyle.Bold)
        Dim font2 As New Font("Verdana", 10, FontStyle.Bold)
        Dim font3 As New Font("Verdana", 10, FontStyle.Regular)
        Dim font4 As New Font("verdana", 7, FontStyle.Italic)
        e.Graphics.DrawString("Cod. Cliente:", font4, Brushes.Black, 10, 10)
        e.Graphics.DrawString(codiceassoluto, font4, Brushes.Black, 110, 10)
        e.Graphics.DrawString("SCHEDA CLIENTE:", Font1, Brushes.Black, 50, 100)
        e.Graphics.DrawString(Ragione_socialeTextBox.Text, Font1, Brushes.Black, 310, 100)
        e.Graphics.DrawString("Ragione sociale completa:", font2, Brushes.Black, 70, 150)
        e.Graphics.DrawString(Ragione_socialeTextBox.Text + space + Ragione_sociale2TextBox.Text, font3, Brushes.Black, 350, 150)
        e.Graphics.DrawString("Partita IVA:", font2, Brushes.Black, 70, 180)
        e.Graphics.DrawString(Partita_ivaTextBox.Text, font3, Brushes.Black, 350, 180)
        e.Graphics.DrawString("Codice Fiscale:", font2, Brushes.Black, 70, 210)
        e.Graphics.DrawString(Codice_fiscaleTextBox.Text, font3, Brushes.Black, 350, 210)
        e.Graphics.DrawString("Affidabile:", font2, Brushes.Black, 70, 240)
        If AffidabileCheckBox.Checked = True Then
            Dim affidabile As String = "Si"
        End If
        'e.Graphics.DrawString(, font3, Brushes.Black, 350, 210)
        e.Graphics.DrawString("Indirizzo:", font2, Brushes.Black, 70, 270)
        e.Graphics.DrawString(IndirizzoTextBox.Text, font3, Brushes.Black, 350, 270)
        e.Graphics.DrawString("C.A.P.:", font2, Brushes.Black, 70, 300)
        e.Graphics.DrawString("Comune:", font2, Brushes.Black, 200, 300)
        e.Graphics.DrawString("Provincia:", font2, Brushes.Black, 500, 300)
    End Sub

devi anche importare

Imports System.Drawing.Printing

[Miitiicoo83]

Ciao e grazie mille, sembra tutto funzionare a meraviglia.

Mitici