AJUDA COM PRINTER

CARINHENA 30/01/2012 17:35:13
#394002
Galera, eu tenho que imprimir um texto, meio grande.
Até ai tudo bem... mas, não consigo definir um tamanho maior de espaçamento entre linhas :(

If CarregarDataSet(sql) = True Then
[ô]Cabeçalho
e.Graphics.DrawString(Nfilme & [Ô] ([Ô] & EFilme & [Ô])[Ô], FonteMensagem_Superior, Brushes.Gray, TimeCode, 20)
[ô]corpo
While oReader.Read
If linhaAtual < linhasPorPagina Then
id = oReader([Ô]Linha[Ô])
[ô]posição da linha para impressão
PosicaoDaLinha = MargemSup + (linhaAtual * FonteMensagem.GetHeight(e.Graphics))

[ô]gravando informações
If oReader([Ô]Corte[Ô]) IsNot System.DBNull.Value Then
If IsNumeric(oReader([Ô]Corte[Ô])) Then

[ô]linhaAtual superior e inferior
e.Graphics.DrawString([Ô]_________________________________________________________________________[Ô], FonteMensagem_Desenho, Brushes.Black, Corte - 1, PosicaoDaLinha - 23)
e.Graphics.DrawString([Ô]____[Ô], FonteMensagem_Desenho, Brushes.Black, Corte - 1, PosicaoDaLinha + 4)

[ô]linhas da direita
e.Graphics.DrawString([Ô] |[Ô], FonteMensagem_Desenho, Brushes.Black, Corte, PosicaoDaLinha - 4)
e.Graphics.DrawString([Ô] |[Ô], FonteMensagem_Desenho, Brushes.Black, Corte, PosicaoDaLinha + 3)

[ô]linhas da esquerda
e.Graphics.DrawString([Ô]|[Ô], FonteMensagem_Desenho, Brushes.Black, Corte - 5, PosicaoDaLinha - 4)
e.Graphics.DrawString([Ô]|[Ô], FonteMensagem_Desenho, Brushes.Black, Corte - 5, PosicaoDaLinha + 3)
End If

e.Graphics.DrawString(oReader([Ô]Corte[Ô]), FonteMensagem_Corte, Brushes.Black, Corte, PosicaoDaLinha)
End If

If oReader([Ô]TimeCode[Ô]) IsNot System.DBNull.Value Then
e.Graphics.DrawString(oReader([Ô]TimeCode[Ô]), FonteMensagem, Brushes.Black, TimeCode, PosicaoDaLinha)
End If

If oReader([Ô]Personagem[Ô]) IsNot System.DBNull.Value Then
e.Graphics.DrawString(oReader([Ô]Personagem[Ô]), FonteMensagem, Brushes.Black, Personagem, PosicaoDaLinha)
End If

If oReader([Ô]Texto[Ô]) IsNot System.DBNull.Value Then
e.Graphics.DrawString(Limpar_Frase(oReader([Ô]Texto[Ô])), FonteMensagem, Brushes.Black, Texto, PosicaoDaLinha)
End If
[ô]somando o numero da linha
linhaAtual += 1
[ô]se a linha for igual a linha máxima, para e adiciona uma
[ô]nova página
If linhaAtual = linhasPorPagina Then
Exit While
End If
End If
End While
oReader.Close()
End If


[ô] Numero_Pagina
If linhaAtual < linhasPorPagina Then
[ô]se o total de linha for menor que o total da página, termina impressão
e.Graphics.Dispose()
linhaAtual = 0
e.HasMorePages = False
Else
[ô]se o total de linha for MAIOR que o total da página, acrescenta impressão
Numero_Pagina += 1
[ô]Adiciona o número da página
e.Graphics.DrawString([Ô]Página [Ô] & Numero_Pagina, FonteMensagem_Superior, Brushes.Black, 700, 20)
e.Graphics.Dispose()
linhaAtual = 0
[ô]adiciona mais páginas
e.HasMorePages = True
End If

Alguem poderia me dar um mão, por gentileza?
CARINHENA 02/02/2012 14:02:36
#394052
ninguem?
MFLAVIO 07/02/2012 11:24:17
#394145 Resposta escolhida
Amigo use o X,Y para definir o local de impressão de cada linha
assim você pode ter o espaço que quiser entre as linhas
CARINHENA 07/02/2012 11:27:13
#394147
Tem algum exemplo, no meu caso?
Tópico encerrado , respostas não são mais permitidas
Voltar