|
 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.
|