Como definir facilmente as regiões de impressão para suas planilhas do Excel

Ao salvar dados em planilhas do Excel, é uma boa prática definir regiões de impressão. Caso contrário, teremos uma enorme tarefa de ajustar as posições das colunas. Usando a macro do Excel, você pode facilmente definir regiões de impressão para todas as suas planilhas. Vamos aprender sobre isso neste artigo.

Faça o download

Se você quiser start para usar o software o mais rápido possível, então você pode:

Baixe o software agora

Caso contrário, se você quiser DIY, pode ler o conteúdo abaixo.

Impressão em Excel – não é uma ciência de foguetes

Muitas pessoas ficam frustradas ao imprimir suas planilhas do Excel, especialmente se suas planilhas são muito largas ou muito altas para caber em uma única página. Se você já sabe que o documento do Excel será impresso, é uma boa prática projetar suas planilhas do Excel antes de adicionar conteúdo a elas. Usando a opção Scaling, você pode projetar sua planilha do Excel e verificar como deseja que ela seja impressa. As quebras de página sempre tornam as planilhas do Excel amigáveis ​​para impressão.

Vamos preparar a GUI

O script pode ser copiado para um novo módulo de qualquer pasta de trabalho do Excel para a qual a área de impressão deve ser definida. No entanto, para economizar tempo e esforço, você pode copiar o script em uma nova pasta de trabalho habilitada para macro. Remova planilhas indesejadas dessa pasta de trabalho e mantenha uma única planilha que pode ser renomeada como “GUI”. Conforme mostrado na imagem, crie um botão para permitir que o usuário navegue e selecione a pasta de trabalho do Excel.

Vamos torná-lo funcional

Após copiar o script para um novo módulo, anexe o script “P_fpick” ao botão “Browse” e o script “DrawPrintArea” deve ser anexado ao botão “Set Print Area”.

Como funciona?

O procedimento “P_fpick” permitiria ao usuário navegar e selecionar um arquivo Excel. O script “DrawPrintArea” leria o caminho do arquivo da planilha “GUI” e o abriria. Para cada planilha na pasta de trabalho aberta, o script identificaria o intervalo usado e definiria a área de impressão.

Sub DrawPrintArea() Dim v1 As Workbook Dim ab As Workbook Set ab = ThisWorkbook Dim v2 As Worksheet Dim lastRow As Long Set v1 = Workbooks.Open(Range("D6").Value) For Each v2 In v1.Worksheets v2.PageSetup. PrintArea = v2.UsedRange.Address Next v1.Close True ab.Activate End Sub Sub P_fpick() Dim v_fd As Office.FileDialog Set v_fd = Application.FileDialog(msoFileDialogFilePicker) With v_fd .AllowMultiSelect = False .Title = "Selecione o Excel pasta de trabalho" .Filters.Clear .Filters.Add "Excel", "*.xls*" If .Show = True Then Range("D6").Value = .SelectedItems(1) End If End With End Sub

Ajuste-o

A partir de agora, o script lê e manipula uma única pasta de trabalho. Você pode modificar a GUI para permitir que o usuário liste várias pastas de trabalho. Como método alternativo, você também pode permitir que o usuário navegue e selecione uma pasta em vez de uma pasta de trabalho do Excel. A macro deve ser ajustada de acordo para ler todas as pastas de trabalho do Excel dentro da pasta e subpasta selecionada. Se o script não conseguir definir a área de impressão, há grandes chances de que a folha esteja corrompida e Recuperação do Excel é a única solução.

Introdução do autor:

Nick Vipond é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção de palavras e produtos de software de recuperação do Outlook. Para mais informações visite www.datanumen.com.