Saberexcel - o site das macros
Imprimir área de um range dinâmico
Macro do Aplicativo Microsoft Excel VBA, imprime uma determinada área de um range dinâmico, que expande tamanho com a digitação:
Inserindo um range dinâmico para impressão de uma determinada área que expande com a digitação
você vai conseguir isso através de um range dinâmico:
nomear o range como "impressao" ou outro nome qualquer
=DESLOC(Extrair!$B$3;0;0;CONT.VALORES(Extrair!$B:$B);6)
Sub Imprimir_Range_Dinamico
Range("Impressao").PrintOut Copies:=1
End Sub
determinar área a ser imprimida
esta área vai da coluna B (Range(b3) mais seis colunas a frente
dos dados digitados.
Para inserir um range dinâmico abra a caixa de diálogo Definir Nome :
1) em sheet1 selecione os dados na coluna b (b6:bn)
2)<Inserir <Nome <Definir
Nome..............: impressao
Refere-se à.......: =DESLOC(Extrair!$B$3;0;0;CONT.VALORES(Extrair!$B:$B);6)
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos --((SaberExcel))--
Baixe o exemplo de planilha contendo o range dinâmico e macro acima.
vba impressao de um range dinamico expande digitacao (81.51 kB 2010-11-22 16:55:05)
Comentários
Sub Imprimir_range_ dinamico()
Plan6.Activate 'a planilha a ser impressa
ActiveSheet.Pag eSetup.PrintAre a = "impressao_b" 'impressao_b foi é o nome definido
ActiveWindow.Se lectedSheets.Pr intOut Copies:=1
Range("E20").Select
End Sub
Assine o RSS dos comentários