PROBLEMAS COM RELATORIO ME AJUDEM POR FAVOR

PI321 27/10/2011 09:53:56
#387888

BOM DIA PESSOAL, SOU NOVO NO FORUM PRECISO DE UMA AJUDA NAO SEI SE VCS PODEM ME AJUDAR. ESTOU DESENVOLVENDO UM PROJETO EM UMA PEQUENA EMPRESA, COMO SE FOSSE UM SISTEMA CRM. E NELE PRECISO IMPRIMIR UMA GUIA DA ASSISTENCIA TéCNICA COM A [Ô]OS[Ô] OS DADOS DO CLIENTE E O VALOR DA VISITA TéCNICA.
FIZ UM CÓDIGO ASSIM DE ACORDO COM UM TUTORIAL QUE VI NA INTERNET , PORéM QUANDO EU IMPRIMO A VARIAVEL DO CAMPO [Ô]OBS[Ô] COM OS DETALHES DO PROBLEMA DO CLIENTE ELE ULTRAPASSA O LIMITE DA PÁGINA, JA TENTEI DE TUDO.. CARA TENTEI DE TUDOO MESMO... NAO CONSIGO RESOLVER ESTE PROBLEMA CASO POSSAM ME AJUDAR SERIA GRATO.
VLW GALERA


Dim strdados As String
Dim objimpressao As Graphics = e.Graphics
If dgvassist.RowCount = 0 Then
MsgBox([Ô]não há registros selecionados para criar relatório[Ô])
Else

[ô][ô] estes comandos desenham uma imagem para ser impressa determinam o seu local e tamanho no relatório
[ô]e.Graphics.DrawImage(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]\Outro logo.PNG[Ô]), 30, 30, 250, 60)
[ô]e.Graphics.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste1.png[Ô]), 100, 30, 250, 130)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]    opo1.PNG[Ô]), 0, 30, 250, 130)

[ô][ô]cria uma linha especificando a espesura dela e a cor onde ela começa e onde ela termina
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 90, 200, 780, 200)

[ô][ô]alimentando a variavel de dados a serem impresso
strdados = [Ô]Código: [Ô] + dgvassist.CurrentRow.Cells(0).Value.ToString + Chr(10)
strdados = strdados + [Ô]Data [Ô] + dgvassist.CurrentRow.Cells(1).Value.ToString + Chr(10)
strdados = strdados + [Ô]Razão Social[Ô] + dgvassist.CurrentRow.Cells(2).Value.ToString + Chr(10)
strdados = strdados + [Ô]Endereço[Ô] + dgvassist.CurrentRow.Cells(3).Value.ToString + Chr(10)
strdados = strdados + [Ô]Número[Ô] + dgvassist.CurrentRow.Cells(4).Value.ToString + Chr(10)
strdados = strdados + [Ô]Complemento : [Ô] + dgvassist.CurrentRow.Cells(5).Value.ToString + Chr(10)
strdados = strdados + [Ô]Cidade [Ô] + dgvassist.CurrentRow.Cells(6).Value.ToString + Chr(10)
strdados = strdados + [Ô]Estado [Ô] + dgvassist.CurrentRow.Cells(7).Value.ToString + Chr(10)
strdados = strdados + [Ô]Telefone [Ô] + dgvassist.CurrentRow.Cells(8).Value.ToString + Chr(10)
strdados = strdados + [Ô]E-mail [Ô] + dgvassist.CurrentRow.Cells(9).Value.ToString + Chr(10)
strdados = strdados + [Ô]Contato :[Ô] + dgvassist.CurrentRow.Cells(10).Value.ToString + Chr(10)
strdados = strdados + [Ô]OBS : [Ô] + dgvassist.CurrentRow.Cells(11).Value.ToString + Chr(10)
strdados = strdados + [Ô]Status : [Ô] + dgvassist.CurrentRow.Cells(12).Value.ToString + Chr(10)
strdados = strdados + [Ô]Valor : [Ô] + dgvassist.CurrentRow.Cells(13).Value.ToString + Chr(10)

[ô][ô]imprimindo a variavel strdados
objimpressao.DrawString(strdados, New System.Drawing.Font([Ô]arial[Ô], 9, FontStyle.Bold), Brushes.Black, 90, 220)

[ô]imprime o rodapé do relatório
[ô]*****************************
objimpressao.DrawString([Ô]Data:[Ô] + DateTime.Today + [Ô] [Ô] + [Ô]Hora:[Ô] + TimeOfDay, New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 90, 1008)
objimpressao.DrawString([Ô]Total de Registros: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 450, 1008)
objimpressao.DrawString([Ô]Pág: 1[Ô], New System.Drawing.Font([Ô]Verdana[Ô], 10, FontStyle.Bold), Brushes.Blue, 730, 1008)
e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 50, 1025, 800, 1025)
[ô]objimpressao.DrawImageUnscaled(Image.FromFile([Ô]C:\Documents and Settings\Felipe\Meus documentos\Reciclotec\Reciclotec\bin\Debug[Ô] & [Ô]teste2.png[Ô]), 70, 1045, 820, 1045)
e.Graphics.DrawImageUnscaled(Image.FromFile(My.Computer.FileSystem.CurrentDirectory + [Ô]odape1.PNG[Ô]), 0, 1045, 820, 1045)
End If