Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Imprimir Número Específico de Páginas

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
Melo
Colaborador
Colaborador
Mensagens: 70
Registrado em: Ter Jan 12, 2010 4:26 pm

Imprimir Número Específico de Páginas

Mensagem por Melo »

Boa tarde,

Amigos, uma ajudinha, titio tá mais perdido do que cego em meio um tiroteio.

Pois bem,

O titulo já diz tudo, quero imprimir paginas especificas.

Criei 2 (duas) TextBox, Inicial e Final, quando eu digitar as paginas que desejo imprimir (Pagina inicial e Pagina Final), e ao executar vai acessar o banco de dados nomeado (Dados) percorrer o mesmo e pegar o intervalo desejado e imprimir.

Dúvidas?

De inicio montei o seguinte:

Para imprimir as paginas especificas

Código: Selecionar todos

Private Sub PaginasEspecificas()
Dim PgInicial As Integer, PgFinal As Integer
PgInicial = TxtInicial.Value
PgFinal = TxtFinal.Value
ActiveSheet.PrintOut From:=PgInicial, To:=PgFinal, Copies:=1
End Sub

Para percorrer o banco de dados e carregar o que será impresso.

Código: Selecionar todos

Private Sub PercorreDados()
On Error GoTo TratarErro
    Dim TotalLinhas    As Long, Linhas        As Long
    TotalLinhas = Worksheets("Dados").Cells(Rows.Count, 1).End(xlUp).Row
    Linhas = 2
    While Linhas <= TotalLinhas
        Worksheets("INICIAL").Cells(7, 12).Value = Worksheets("Dados").Cells(Linhas, 1).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Linhas = Linhas + 1
    Wend
Sair:
    Exit Sub
TratarErro:
    'Tratamento de erro se houverem problemas
    MsgBox "Houve um erro na impressão!", vbCritical
    GoTo Sair
End Sub

Entendido?, conseguir desenvolver os dois códigos, mais não consegui junta-los

Uma esmolinha para um ceguinho.

Desde já agradeço aos amigos.

Abraços.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Imprimir Número Específico de Páginas

Mensagem por LEANDRO ALVES »

Olá Melo,

Talvez se você fizer uma conexão Adodb e paginar o Recordset conforme o link a seguir: http://www.macoratti.net/ado_nav.htm depois é só você transportar os dados para uma nova planilha e dar o comando imprimir. No Controle Financeiro que disponibilizei no fórum "Modelos prontos" tem um exemplo de relatório em excel bem legalzinho. Pode ser que ajude.
viewtopic.php?f=23&t=1866#.T8DD3FLRWTY

Abraços


Avatar do usuário
Melo
Colaborador
Colaborador
Mensagens: 70
Registrado em: Ter Jan 12, 2010 4:26 pm

Re: Imprimir Número Específico de Páginas

Mensagem por Melo »

bom dia,

Irmãozinho obrigado, vou verificar direitinho.


obrigado


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder