Copiando para layout e imprimindo

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Copiando para layout e imprimindo

Mensagempor Maggioni » Qui Out 19, 2017 5:13 pm

Boa tarde, sou nova nesse mundo vba mas tenho me aventurado para solucionar problemas de minha empresa do qual o segmento é Agência Funerária.
Tenho uma userform(formulario) Declaração de Obito que salva é salvo no banco de dados registrodeobito com o seguinte código
Código: Selecionar todos
totalregistro = Worksheets("REGISTRODEOBITO").UsedRange.Rows.Count + 1
    Worksheets("REGISTRODEOBITO").Select
    'aqui começa a gravação dos dados'
 
       Cells(totalregistro, 1) = Textnregistro
            Cells(totalregistro, 2) = Textdataregistro
         Cells(totalregistro, 3) = Textfalecidoregistro
          Cells(totalregistro, 4) = Cbsexoregistro
                Cells(totalregistro, 5) = Cbcorregistro
                  Cells(totalregistro, 6) = Textprofissaoregistro
                       Cells(totalregistro, 7) = Textnaturalregistro
                       Cells(totalregistro, 8) = Textdatanascregistro
                 Cells(totalregistro, 9) = Textidaderegistro
           Cells(totalregistro, 10) = cbestadocivilregistro
         Cells(totalregistro, 11) = Textendregistro
       Cells(totalregistro, 12) = Textendnregistro
        Cells(totalregistro, 13) = Textcomplregistro
         Cells(totalregistro, 14) = Textbairroregistro
           Cells(totalregistro, 15) = Textcidaderegistro
       Cells(totalregistro, 16) = Cbufregistro
        Cells(totalregistro, 17) = Textrgrneregistro
          Cells(totalregistro, 18) = Textcpfregistro
           Cells(totalregistro, 19) = Cbbenefregistro
         Cells(totalregistro, 20) = Textnbeneregistro
         Cells(totalregistro, 21) = Cbbensregistro
           Cells(totalregistro, 22) = Cbtestamentoregistro
          Cells(totalregistro, 23) = Cbeleitorregistro
          Cells(totalregistro, 24) = Texteleicidaderegistro
          Cells(totalregistro, 25) = Textzonaregistro
          Cells(totalregistro, 26) = Texteleitornregistro
           Cells(totalregistro, 27) = Cbreservistaregistro
            Cells(totalregistro, 28) = Textidentregistro
           Cells(totalregistro, 29) = Textnomedopairegistro
           Cells(totalregistro, 30) = Cbestadocivilpaisregistro
           Cells(totalregistro, 31) = Textnaturalpairegistro
           Cells(totalregistro, 32) = Textnomedamaeregistro
            Cells(totalregistro, 33) = Cbestadocivilmaeregistro
           Cells(totalregistro, 34) = Textnaturalmaeregistro
          Cells(totalregistro, 35) = Textendpaisregistro
         Cells(totalregistro, 36) = Textnpaisregistro
           Cells(totalregistro, 37) = Textbairropaisregistro
           Cells(totalregistro, 38) = Textcidadepaisregistro
           Cells(totalregistro, 39) = CBUFPAIS
             Cells(totalregistro, 40) = Textfilhos1registro
             Cells(totalregistro, 41) = Textfilhosregistro2
            Cells(totalregistro, 42) = Textdataobito
            Cells(totalregistro, 43) = Texthoraobito
           Cells(totalregistro, 44) = Textlocalobito
            Cells(totalregistro, 45) = Textcidadeobito
            Cells(totalregistro, 46) = cbufobito
           Cells(totalregistro, 47) = Textvelorioobito
          Cells(totalregistro, 48) = Textdatasepultamento
           Cells(totalregistro, 49) = Texthorasepultamento
            Cells(totalregistro, 50) = Textcemitérioobito
            Cells(totalregistro, 51) = CBUFCEMITERIO
           Cells(totalregistro, 52) = Textmedico1obito
           Cells(totalregistro, 53) = Textcrm1obito
           Cells(totalregistro, 54) = Textcemitérioobito
           Cells(totalregistro, 55) = Textmedico2obito
            Cells(totalregistro, 56) = Textcrm2obito
            Cells(totalregistro, 57) = NDECLARACAOMEDICO
             Cells(totalregistro, 58) = Textcausa1
              Cells(totalregistro, 59) = Textcausa2
               Cells(totalregistro, 60) = Textcausa3
              Cells(totalregistro, 61) = Textcausa4
             Cells(totalregistro, 62) = Textobs1obito
              Cells(totalregistro, 63) = Textobs2obito
              Cells(totalregistro, 64) = Textdeclaranteobito
               Cells(totalregistro, 65) = Textrnrnedeclarante
               Cells(totalregistro, 66) = Textparentescodeclarante
               Cells(totalregistro, 67) = Texttelefonedeclarante
                  Cells(totalregistro, 68) = Textenddeclarante
                Cells(totalregistro, 69) = Textbairrodeclarante
               Cells(totalregistro, 70) = Textcidadedeclarante
              Cells(totalregistro, 71) = Cbufdeclarante
              Cells(totalregistro, 72) = Textprofissaodeclarante
               Cells(totalregistro, 73) = Textcartorioregistro
               Cells(totalregistro, 74) = Textendcartorio
                Cells(totalregistro, 75) = Textendncartorio
                 Cells(totalregistro, 76) = Texttelefonecartorio
                  Cells(totalregistro, 77) = Cbatendenteregistro

   
    'mensagem de gravação concluida'
MsgBox "Dados salvo com sucesso"
OBIMPRIMIR.SetFocus


Na mesma userform criei um botao de comando imprimir(obimprimir) e gostaria que ao salvar o registro o usuario click em imprimir as textbox sejam copiadas para a plan( formularioimpressao) nas celulas especificadas visualize a impressão do formulario e em seguida faça a impressão.
Editado pela última vez por Patropi em Qui Out 19, 2017 6:44 pm, em um total de 1 vez.
Razão: O título deve ser um resumo da dúvida - Não é permitido usar termos como "Dúvida", "ajuda", etc.., pois atrapalham a ferramenta de pesquisa do fórum.
Maggioni
Membro
Membro
 
Mensagens: 2
Registrado em: Qua Out 04, 2017 11:12 pm
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Copiando para layout e imprimindo

Mensagempor Patropi » Qui Out 19, 2017 6:45 pm

Maggioni

Seja bem-vinda ao fórum!

Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8197
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 194 times
Have thanks: 3178 times

Re: Copiando para layout e imprimindo

Mensagempor Maggioni » Qui Out 19, 2017 7:27 pm

Obrigada Patropi, li os conteúdos e peço desculpas pelo termo usado!
Maggioni
Membro
Membro
 
Mensagens: 2
Registrado em: Qua Out 04, 2017 11:12 pm
Has thanked: 0 time
Have thanks: 0 time


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante