MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Impressão em papel ou PDF

    avatar
    Douglasdfsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 26/06/2013

    Impressão em papel ou PDF Empty Impressão em papel ou PDF

    Mensagem  Douglasdfsilva 22/1/2014, 11:46

    Bom dia pessoal,

    Não sou desenvolvedor mas com a prestimosa ajuda do pessoal do fórum consegui desenvolver um Banco de Dados para controle de Ordem de Serviços.
    Entretanto estou com um problema, eu imprimo diretamente para a impressora as OSs geradas de um formulário Word, mas agora além desta função preciso ter a opção para gerar PDF deste formulário.
    Segue abaixo o código que eu utilizo, ressaltando que os dados contidos no BD são inseridos nos campos do formulário Word por intermédio de indicadores.

    Private Sub B_GerarOS_Click()

    Dim Word As New Word.Application

    With Word
    .Documents.Open "C:\Users\mb1\Dropbox\Microbackup\MBSist\OSModelo_v1.dotx"

    'Move cada campo para o indicador definido no documento

    .ActiveDocument.Bookmarks("NumeroOS").Select 'NumeroOS corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_NumeroOS, 0))

    .ActiveDocument.Bookmarks("NomeCli").Select 'NomeCli corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Nome, 0))

    .ActiveDocument.Bookmarks("NomeCli2").Select 'NomeCli2 corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Nome, 0))

    .ActiveDocument.Bookmarks("CodCliente").Select 'CodCliente corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_CPFCNPJ, 0))

    .ActiveDocument.Bookmarks("Telefone").Select 'Telefone corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.Telefone, 0))

    .ActiveDocument.Bookmarks("Operadora").Select 'Operadora corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.Operadora, 0))

    .ActiveDocument.Bookmarks("TipodeHardware").Select 'TipodeHardware corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Hardware, 0))

    .ActiveDocument.Bookmarks("FabricantedoHardware").Select 'FabricantedoHardware corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Fabricante, 0))

    .ActiveDocument.Bookmarks("SerialdoHardware").Select 'SerialdoHardware corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Serial, 0))

    .ActiveDocument.Bookmarks("TamanhodoHardware").Select 'TamanhodoHardware corresponde ao campo doc word
    .Selection.Text = CStr(Nz(Me.C_Tamanho, 0))

    .ActiveDocument.Bookmarks("CapacidadeH").Select 'CapacidadeH corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Capacidade, 0))

    .ActiveDocument.Bookmarks("VolumeH").Select 'VolumeH corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_Volume, 0))

    .ActiveDocument.Bookmarks("InfoEstadoMidia").Select 'InfoEstadoMidia corresponde ao campo no doc word
    .Selection.Text = CStr(Nz(Me.C_InfoEstadoMidia, 0))

    '.Visible = True
    .Visible = False

    .PrintOut
    .Quit wdDoNotSaveChanges
    End With
    Set Word = Nothing

    '.WindowState = wdWindowStateMaximize
    'End With
    End Sub


    Grato pela atenção que sempre me dispenderam.
    Douglas
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Impressão em papel ou PDF Empty Impressão em papel ou PDF

    Mensagem  good guy 22/1/2014, 12:23

    Olá Douglas,

    Se for para salvar em PDF o próprio WORD já vem com esta opção no modo Salvar Como. Se for pelo Access, você já procurou pelo Buscar no fórum? Veja se esta dica atende.

    http://maximoaccess.forumeiros.com/t1628-resolvidosalvar-relatorio-em-pdf

      Data/hora atual: 7/12/2022, 13:24