Saberexcel - o site de quem precisa Aprender Macros MS Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostra dados em uma determinada impressão, personalizando-a com os cabeçalhos e rodapés, nome da folha de planilha, dia da edição da planilha, cabeçalho a direita e esquerda, e também rodapé , como número da impressão de cada página.

Sub Rodapé_Personalizado()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "Editado dia: &D"
.CenterFooter = "Pg: &P / &N"
.RightFooter = "Origem : &F - &A"
End With
End Sub

Esse macro auxilia no teste, mostrano a impressão
Sub VisualizaImpressão()
ActiveSheet.PrintPreview
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - O Site de quem precisa Aprender Macros MS Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), com três checkboxes mostram e ou ocultam, se selecionado ou não,
mostram e ou ocultam botões (commandbutton) para impressão de determinadas área nas Folhas de Planilha.
Espero que o exemplo lhe seja útil, Fique com Deus, Expedito Marcondes

Private Sub CheckBox1_Click()
[A1].Select
If CheckBox1.Value = VRAI Then
cmbDOC1.Visible = False
Else
cmbDOC1.Visible = True
End If
End Sub
'-
Private Sub CheckBox2_Click()
[A2].Select
If CheckBox2.Value = VRAI Then
cmbDOC2.Visible = False
Else
cmbDOC2.Visible = True
End If
End Sub
'-
Private Sub CheckBox3_Click()
[A3].Select
If CheckBox3.Value = VRAI Then
cmbDOC3.Visible = False
Else
cmbDOC3.Visible = True
End If
End Sub



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 os procedimentos acima

Publicidade
Compre com segurança, garantia e ótimos preços

Escola Saberexcel VBA - Treinamentos com Macros, Fórmulas e Funções

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) faz uma PrintScreen do Objeto Userform,
Abrindo um novo Livro(Pasta) do Excel. e Também abre uma lista das impressoras para escolha do item Imprimir pdf
observe que neste caso voce precisa de um programa tio (PDF Creator) para impressao deste objeto.
Fiquem com Deus, Expedito Marcondes.

Private Sub CommandButton2_Click()
With frmIMPRIMIR_PDF
.Zoom = 90
End With

frmIMPRIMIR_PDF.PrintForm
With frmIMPRIMIR_PDF
.Zoom = 100
End With
End Sub

Private Sub CommandButton31_Click()
Dim P As Byte
P = MsgBox(Range("Saber1!A33"), vbYesNo + vbDefaultButton1, Range("Saber1!A34"))
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrinterSetup).Show

With frmIMPRIMIR_PDF
.Zoom = 90
End With
frmIMPRIMIR_PDF.PrintForm

With frmIMPRIMIR_PDF
.Zoom = 100
End With
Unload frmIMPRIMIR_PDF
End Sub

Private Sub CommandButton32_Click()
Sheets("Saber1").Select
Application.SendKeys "(%{1068})"
DoEvents
Workbooks.Add
ActiveSheet.Name = "Saberexcel_Salvando_formulario"
Worksheets("Saberexcel_Salvando_formulario").Activate
Range("A1").Select
Range("G6").Value = "FOI CRIADO UM NOVA PASTA WKB PARA SALVAR O PRINT" ' uma mensagem na nova plan
ActiveSheet.Paste
Unload Me
'Userform.hide ' caso queira fechar o userform
Dim CmdB As CommandBar

For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB

With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

With ActiveWindow
.DisplayHeadings = True
End With
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




Baixe o exemplo de planilha contendo os macros acima.

Essas macros do Aplicativo Microsoft Excel VBA, com auxílio de uma caixa de combinação (Combobox) imprimem determinadas áreas da planilha, observem que usei a Instrução Select Case para 'chamar' (referenciar) aos macros específicos. Você poderá baixar o exemplo de planilha no final da página.

Sub Imprimir_determinadas_areas()
Dim MAreas As Variant

MAreas = Sheets("Imprimir").Range("H1")
If Not IsNumeric(MAreas) Then
Exit Sub
Else
Select Case MAreas
Case 1
Call Imprimir_Area_I
Case 2
Call Imprimir_Area_II
Case 3
Call Imprimir_Area_III
Case 4
Call Imprimir_Area_IV
Case 5
Call Imprimir_Area_V
Case 6
Call Imprimir_Area_VI
Case 7
Call Abrir_cxa_dialogo
End Select
End If
End Sub

Sub Imprimir_Area_I()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Imprimir_Area_II()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$B$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Imprimir_Area_III()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$C$1:$C$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Imprimir_Area_IV()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$D$1:$D$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Imprimir_Area_V()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$E$1:$E$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Imprimir_Area_VI()
On Error Resume Next ' no caso de cancelamento da macro
Sheets("Imprimir").Select
ActiveSheet.PageSetup.PrintArea = "$F$1:$F$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Abrir_cxa_dialogo()
Application.Dialogs(xlDialogPrint).Show
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o Site das Macros
Criar um botão para impressão personalizado que chama uma determinada macro na barra de ferramentas

Macros do Aplicativo Microsoft Excel VBA, insere um botão personalizada na barra de ferramenta da planilha'
que chama uma outra macro configurada para impressão de acordo com o tamanho do texto, paisagem ou retrato.
mas veja bem Lúcia, no teu caso, aqui seria bom lançar uma macro que selecione a área corrente, para que seja
selecionado automaticamente, através de um range dinâmico, que funciona bem.

Sub Definir_botoes_personalizados()
Dim MeuBotao As CommandBarButton
Set MeuBotao = CommandBars("standard").Controls.Add(msoControlButton)

With MeuBotao
.Caption = "Impressao_Saberexcel"
.Style = msoButtonIconAndCaption
.FaceId = 4 'definir o icone impressora
.TooltipText = "Imprimir a seleçao SaberExcel" 'descrição da função
.OnAction = "Imprimir_Selecao" 'macro a executar
End With

End Sub


Essa macro será chamada pelo botão personalizado acima que será inserido na Barra de Ferramenta da planilha.
Sub Imprimir_Selecao()

With ActiveSheet.PageSetup
.PrintArea = Selection.Address 'define a zona de impressao
If Selection.Height > Selection.Width Then 'determina a orientação
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If

.CenterHorizontally = True
.CenterVertically = True

End With
With ActiveSheet

.PrintOut 'chama a impressão
.PageSetup.PrintArea = False ' zona de impressão
.DisplayPageBreaks = False 'status da pagina

End With
End Sub

Apprenda Microsoft Excel VBA --(-(SaberExcel )-)---