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.

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

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