AJUDA COM PRINTER

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM PRINTER

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#394002 - 30/01/2012 17:35:13

CARINHENA
SOROCABA
Cadast. em:Junho/2004


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

A melhor forma de aprender e ensinando!


#394052 - 02/02/2012 14:02:36

CARINHENA
SOROCABA
Cadast. em:Junho/2004


ninguem?

Carinhena

A melhor forma de aprender e ensinando!


Resposta escolhida #394145 - 07/02/2012 11:24:17

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


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


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#394147 - 07/02/2012 11:27:13

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Tem algum exemplo, no meu caso?

Carinhena

A melhor forma de aprender e ensinando!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por CARINHENA em 18/01/2013 13:55:48