Impressão

[rafaeldorazio 2]

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 91]

Tente concatenar sua string para testar.

 

Abraços...

[rafaeldorazio 2]

Como assim concatenar ?

[quintelab 91]

Dim linha As String = "123 testando , 123 testando, 123 testando,123 testando , 123 testando, 123 testando."
linha += "Testando a impressão do recibo do proprietário " + tex_proprietarioNome.Text + " portador do CPF " + tex_proprietarioCPF.Text

Abraços...

[rafaeldorazio 2]

não deu certo não, não esta indo pra proxima pagina !