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
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
Uma esmolinha para um ceguinho.
Desde já agradeço aos amigos.
Abraços.