Home Excel - Dicas Microsoft Excel VBA Excel VBA - Impressao Excel VBA imprimir userform pdf salva print screen

Excel VBA imprimir userform pdf salva print screen

E-mail Imprimir PDF

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.

 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje941
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30705
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44434
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467263
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA