Imprimir

[mestre fyoda]

Private Sub ImprimirRecibo_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles ImprimirRecibo.PrintPage
        Dim linha As String = "123 testando , 123 testando, 123 testando,123 testando , 123 testando, 123 testando. Testando a impressão do recibo do proprietário " + tex_proprietarioNome.Text + " portador do CPF " + tex_proprietarioCPF.Text  'ArquivoFonte.ReadLine()
        e.PageSettings.Margins = New System.Drawing.Printing.Margins(250, 250, 250, 250)
        Dim g As Graphics
        g = e.Graphics
        g.DrawString(linha, New Font("Arial", 12), Brushes.Black, 120, 140)
        g.Dispose()
        e.HasMorePages = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PrintDialog1 As New PrintDialog()
        PrintDialog1.Document = ImprimirRecibo
        If PrintDialog1.ShowDialog() = DialogResult.OK Then
            ImprimirRecibo.Print()
        End If
    End Sub

Quando vou imprimir uma string com um tamanho que ocupe mais de uma linha, não está imrimindo o restante da string na outra linha.

O que está errado ?

[quintelab]

Ao invés de utilizar desta forma, utilize concatenação talvez de certo.

Abraços...