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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E