Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Imprimir Em VBA

Tutoriais elaborados da comunidade
Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Imprimir Em VBA

Mensagem por kedim43 »

Salve Galera.
Estou de volta.

Desculpem - me a demora, no momento, estou tento muito trabalho para Desenvolver um Sistema Fodastico de Gestão Industrial e muito complexo.
Neste desenvolvimento, terminei um arquivo que com certeza, ajudará os leitores a pensar um pouco mais nas iniciativas de impressão.

Galera, conhecem aquela folha impressa com os nomes dos funcionários, estoque, entre outros, pois bem, vou lhes ensinar o passo a passo para que você tambem tenha em seu Projeto, esta função, sem a necessidade de usar o camando Print do VBA.

Então vamos lá.

Vamos colocar as mãos no codigo


' CELULA AO QUAL SE DESTINA A IMPRESSÃO ESTARA DESTACADA COMO RANGE, NOTE LOGO ABAIXO QUE O CODIGO JÁ LHE ENSINA A MONTAR O BOTÃO DE IMPRESSÃO
' LOGO A FRENTE ESTÁ O NOME DO CAMPO A SER INSERIDO, LEGAL HEIM, SOU MUITO BOM PRA TODOS.
' CASO MUDE A PLANILHA, MUDE O NOME ACIMA PLAN3 PARA A SUA PLANILHA, LEMBRE SE DE COLOCAR A INICIAIS SEMPRE UM RANGE ANTES DA IMPRESSÃO, EX:
' RANGE ("C10") SERÁ A INFORMAÇÃO NOME E NOME VIRÁ DE SEU FORM.

' FACIL HEIM


Para isso crie um form bem bacana, com alguns campos como os descritos abaixo.

Private Sub Command_imprimir_Click()
Application.Visible = True
Plan3.Visible = xlSheetVisible
ThisWorkbook.Worksheets("PRINT_FUNCIONARIOS").Activate

Range("C11").Select
ActiveCell.Value = Text_nome.Value

Range("C13").Select
ActiveCell.Value = Combo_sexo.Value

Range("C15").Select
ActiveCell.Value = Text_CPF.Value

Range("E15").Select
ActiveCell.Value = Text_RG.Value

Range("C17").Select
ActiveCell.Value = Text_CNH.Value

Range("C19").Select
ActiveCell.Value = Text_endereco.Value

Range("C21").Select
ActiveCell.Value = Text_bairro.Value

Range("G21").Select
ActiveCell.Value = Text_numero.Value

Range("C23").Select
ActiveCell.Value = Text_cep.Value

Range("E23").Select
ActiveCell.Value = Text_complemento.Value

Range("C25").Select
ActiveCell.Value = Text_cidade.Value

Range("E25").Select
ActiveCell.Value = Combo_estado.Value

Range("C27").Select
ActiveCell.Value = Text_celular.Value

Range("C33").Select
ActiveCell.Value = Text_funcao.Value

Range("C35").Select
ActiveCell.Value = Text_salario.Value

Range("F35").Select
ActiveCell.Value = Text_diasmes.Value

Range("C37").Select
ActiveCell.Value = Text_horasdia.Value

Range("F37").Select
ActiveCell.Value = Text_salariohora.Value

Range("C39").Select
ActiveCell.Value = Text_adimissao.Value

Range("F39").Select
ActiveCell.Value = Text_demissao.Value

Range("B48").Select
ActiveCell.Value = Text_observacao.Value

'OCULTAR OS FORMULARIOS
Me.Hide
Seu_Form.Hide

End Sub

Basta agora que você sempre utilize o botão do form para imprimir.
Lembre se de criar uma folha de estilo bem legal, para que sua aplicação seja personalizada.

* Amigo Tomaz, caso necessite de um exemplo pronto, me avise por email que terei grande prazer em enviar a todos o modelo jádesenvolvido.

Valeu galera! até nosso proximo post.

Lembrando a todos que iremos trabalhar tambem com SQL em nosso proximo tutorial.

Abração a todos ai.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder