Jump to content
genario

quebra de pagina via codigo

Recommended Posts

genario

oi pessoal tudo bom com vocês

peço socorro pós sou iniciante e tenho um código que e para gerar carne de pagamento local só que ele imprime contando a parti de um TxtNumeroParcelas.Text, so que ele so imprime uma pagina com 6 carnes e se tiver 10 na txt ele só imprime 6 e não gera a próxima pagina

 

eis aqui o código

 Private Sub PrintCarne_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintCarne.PrintPage
        Dim margemEsq As Single = e.MarginBounds.Left
        Dim margemSup As Single = e.MarginBounds.Top + 60
        Dim margemDir As Single = e.MarginBounds.Right
        Dim margemInf As Single = e.MarginBounds.Bottom
        fonteTitulo = New Font("Verdana", 18, FontStyle.Bold)
        fonteRodape = New Font("Verdana", 10)
        fonteNormal = New Font("Verdana", 14)
        zero = 1
        today = DateTimePicker1_Cliente.Text


        For x = 1 To TxtNumeroParcelas.Text

            If trinta = "30" Then
                dataParcelamento = today.AddDays(trinta)
                'MdGerartitulu.gerandoTituloParcelado()
                trinta = trinta + 30 / 1
                ' MsgBox(trinta)
            ElseIf trinta <> "30" Then
                dataParcelamento = today.AddDays(trinta)
                'MdGerartitulu.gerandoTituloParcelado()
                trinta = trinta + 30 / 1

            End If

            e.Graphics.DrawString(linha1 & linha1 & linha1 & linha1, New Font("Tahoma", 7, FontStyle.Bold), cor, 3, aux)
            aux += 7
            e.Graphics.DrawString(NOME_DA_EMPRESA, New Font("Tahoma", 8, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString(NOME_DA_EMPRESA, New Font("Tahoma", 8, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 15
            e.Graphics.DrawString("CNPJ:" & " " & cnpj_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("CNPJ:" & " " & cnpj_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 15
            e.Graphics.DrawString("ENDERECO:" & " " & end_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("ENDERECO:" & " " & end_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 15
            e.Graphics.DrawString("CIDADE:" & " " & cidade & " / " & uf_enpesa & "     TELEFONE:" & "   " & tel_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("CIDADE:" & " " & cidade & " / " & uf_enpesa & "     TELEFONE:" & "   " & tel_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 15
            e.Graphics.DrawString("E-MAIL:" & " " & email_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("E-MAIL:" & " " & email_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 15
            e.Graphics.DrawString("DATA COMPRA:" & " " & FRM_CADATRO_DE_FORNECEDOR.DATA_HOJE & "   " & "HORA " & "  " & FRM_CADATRO_DE_FORNECEDOR.HORA_HOJE, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("DATA COMPRA:" & " " & FRM_CADATRO_DE_FORNECEDOR.DATA_HOJE & "   " & "HORA " & "  " & FRM_CADATRO_DE_FORNECEDOR.HORA_HOJE, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            aux += 20
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '===========================================================================================
            e.Graphics.DrawString("Parcela Nº:" & " " & zero & " de " & TxtNumeroParcelas.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("Parcela Nº:" & " " & zero & " de " & TxtNumeroParcelas.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            '
            'e.Graphics.DrawString("Nº Titulo:" & " " & nTitulo, New Font("Tahoma", FT, FontStyle.Bold), cor, 150, aux)
            ' e.Graphics.DrawString("Nº Titulo:" & " " & nTitulo, New Font("Tahoma", FT, FontStyle.Bold), cor, 635, aux)
            'e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)
            '
            aux += 15
            e.Graphics.DrawString("Codigó: " & TXT_PESQUSAR_POR_ID_CLIENTE.Text & "  Nome:" & " " & lblNome.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("Codigó: " & TXT_PESQUSAR_POR_ID_CLIENTE.Text & "  Nome:" & " " & lblNome.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)

            aux += 15
            e.Graphics.DrawString("Valor R$" & " " & LblValorDaParcela.Text, New Font("Tahoma", 8, FontStyle.Bold), cor1, 10, aux)
            e.Graphics.DrawString("Valor R$" & " " & LblValorDaParcela.Text, New Font("Tahoma", 8, FontStyle.Bold), cor1, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)

            'aux += 15
            e.Graphics.DrawString("Data de Vencimento:" & " " & dataParcelamento, New Font("Tahoma", 8, FontStyle.Bold), cor1, 120, aux)
            e.Graphics.DrawString("Data de Vencimento:" & " " & dataParcelamento, New Font("Tahoma", 8, FontStyle.Bold), cor1, 460, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)

            aux += 15
            e.Graphics.DrawString("Data de Pagamento:" & " ___ /___ /______ ", New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString("Data de Pagamento:" & " ___ /___ /______ ", New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)

            aux += 18
            e.Graphics.DrawString(MD_VARIAVES_PUBLICAS.linha, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux)
            e.Graphics.DrawString(MD_VARIAVES_PUBLICAS.linha, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux)
            e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux)

            aux += 7
            e.Graphics.DrawString("Assinatura", New Font("Tahoma", FT, FontStyle.Bold), cor, 50, aux)
            e.Graphics.DrawString("Assinatura", New Font("Tahoma", FT, FontStyle.Bold), cor, 385, aux)
            'e.Graphics.DrawString(Traco, New Font("Tahoma", 11, FontStyle.Bold), cor, 305, aux)
            aux += 7
            e.Graphics.DrawString(linha1 & linha1 & linha1 & linha1, New Font("Tahoma", 7, FontStyle.Bold), cor, 3, aux)
            aux += 7
            If x = 6 Then
                e.HasMorePages = True
            End If
        Next


        e.HasMorePages = False

    End Sub

 

desde já agradeço a todos

Edited by genario

genario

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.