Impressão em papel ou PDF

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

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