Este fórum está sendo desativado

[werlewow]

Bom dia, sou iniciante no VBA, se possivel, me intruir passo a passo.

Tenho uma planilha e quero add um botão que imprimi os documentos. O numero de pagina do documento varia conforme um série de outros comando que não vem ao caso. Basicamente eu tenho um célula I2, ela me diz o num de linhas que preciso imprimir. Ela varia de 0 a 2500. As colunas são sempre as mesmas, então basicamente quero SEMPRE imprimir da célula A1 ATÉ A H"x", onde X é o num de linhas igual de I2. Tentei fazer o cód assim mas não deu:

Obrigado

Sub imprimi()


Sheets("peças e suas composição").Select
Range("A1:H(Range("I1")").Select

Selection.PrintOut Copies:=1, Collate:=True

End Sub

[gfranco]

Bom dia.

Veja se te ajuda:

Código: Selecionar todos

Sub imprimir()

    On Error GoTo errPrint
    
    Sheets("peças e suas composição").PageSetup.PrintArea = Range("a1:h" & Range("i2").Value).Address
    
    Sheets("peças e suas composição").PrintOut
    
    Exit Sub
errPrint:
    MsgBox "Um erro ocorreu, verifique !"


End Sub

[werlewow]

ISSO MESMO! muito obrigado !!