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 das macros
Essa macro do Aplicativo Microsoft Excel VBA, configura minha impressão rodapé e cabeçalho
selecionando uma determinada área para impresssão, inserindo dados importantes como datas,
cabeçalhos personalizados, rodapés, e escolhendo o estilo de página, isso tudo através de
macros.

Sub Organizando_personalizacao_impressao()
Dim BotaoLinha As Integer, ImpData, CopiaW, LRodape, MontaRodape
Dim vPaginas As Integer, vUltimaColuna
vUltimaColuna = Application.CountA(ActiveSheet.Range("1:1"))
BotaoLinha = Application.CountA(ActiveSheet.Range("A:A"))

'observe nesta condição, se os dados for maior que coluna(6) imprime retrato, senão, paisagem
If vUltimaColuna >= 6 Then
vPaginas = 1 '1=xlPortrait (retrato)
Else
vPaginas = 2 '2=xlLandscape (paisagem)
End If

'============= personalize a impressao de suas páginas cabeçalhos e rodapés ==========

MontaRodape = "&8" & Chr(34) & "Excel VBA" & Chr(34) & _
" Reservado área de código dos Alunos SKY-XL-EVES®," & Chr(10) _
& "Fone # 1-800-XL-EVES®" & Chr(10) & "Sorria, você esta em questão!!!"
ImpData = Application.Text(Now(), "dd/mm/yyyy HH:mm:ss")
CopiaW = Chr(169) & Year(Now())
LRodape = "&8" & "*=Saberexcel" & Chr(10) & CopiaW & _
" Confidendencial Propridades dos Alunos Saberexcel"

Application.StatusBar = "Acertando um sistema de página"
ActiveSheet.Range(Cells(2, 1), Cells(BotaoLinha, vUltimaColuna)).Select

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Bold""ABCDEFG Agenda Telefonica" _
& Chr(10) & SpecialMsg
.RightHeader = ImpData
.LeftFooter = LRodape
.CenterFooter = "Pagina &P of &N"
.RightFooter = MontaRodape
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintNotes = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = vPaginas 'Landscape or Portrait(Paisagem e retrato)
.Draft = False
' .PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1 'força uma largura de página
.FitToPagesTall = False 'Retorna ou define a altura, em número de páginas, pela qual a planilha será dimensionada quando impressa. Só se aplica a 'planilhas.
End With

ActiveWorkbook.Save
Application.StatusBar =""
[H1].Select 'saida de macro

End Sub


Aprenda Microsoft Excel VBA (Visual Basic Application) ---((SaberExcel))---

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 das macros

Essa macro do Aplicativo Microsot Excel VBA(Visual Basic Application), imprime o Userform da tela ativa no Aplicativo Word e também envia para impressora para impressão.


Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub CommandButton2_Click()
Dim Wrd As Object, WrdDoc As Object, Resposta As String

Resposta = MsgBox("Deseja imprimir o userform ativo no Word e Impressora?", _
vbYesNo + vbInformation, "Saberexcel - o site das macros ")
If Resposta = 6 Then '6 = sim

'Captura a tela na forma ativa
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Set Wrd = CreateObject("Word.Application") 'criando uma sessão no Word
Wrd.Visible = True 'condição pendenete para acionar ou nao o word

On Error Resume Next
Set WrdDoc = Wrd.Documents.Add
WrdDoc.PageSetup.Orientation = wdOrientLandscape

Wrd.Selection.PasteSpecial 'colando o documento dentro do word

With WrdDoc.Shapes(1) 'redimensionamento e posicionamento do objeto a ser impresso
.Left = 40 'Borda à Esquerda
.Top = 40 'Borda ao topo(Alto)
.Width = 400
End With

WrdDoc.PrintOut 'Impressão,

'WrdDoc.Close False 'fecha o word sen salvar
'WrdDoc.Quit 'fecha o Aplicativo Word

Else

Exit Sub
End If

MsgBox ("Userform, imprimido com sucesso no Word e Impressora!!!"), vbInformation, "Saberexcel - site das macros"
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub


Aprenda sobre o Aplicativo Microsot Excel VBA(Visual Basic Application), com Saberexcel o site das macros

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