Excel VBA imprimir userform pdf salva print screen

Sex, 03 de Maio de 2013 07:57 Escola Saberexcel
Imprimir

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.

Tags: