Jump to content
Sign in to follow this  
FabioGuerreiro

Imprimir ficheiro que se encontra dentro do programa

Recommended Posts

FabioGuerreiro

Boa noite gostaria de saber como faço para imprimir um ficheiro word já definido no codigo e permitisse escolher a impressora.

Até agora consegui substituir variáveis dentro do ficheiro word e guarda-lo, só falta mesmo imprimir esse ficheiro, com opção de escolha de impressora. Como faço?

  If TextBox1.Text = Nothing Then
            MsgBox("Introduza nome de Ficheiro", MsgBoxStyle.Critical)
        Else
            nomefich = TextBox1.Text

                Dim temp As String
                On Error GoTo trata_erro
                ' Desabilita o botao de comando
                'cmdContrato.Enabled = False
            ' nome do relatorio pré montado

                ObjaWord.Documents.Open(My.Application.Info.DirectoryPath & "\Folha de Obra\datada.docx")

                ' chama rotina para substituicao
                Call Substitui_Var("@data", Date.Today)
            ObjaWord.ActiveDocument.SaveAs(My.Application.Info.DirectoryPath & "\Arquivo\" & nomefich & ".docx")
                ObjaWord.Quit()

                MsgBox("Folha de Obra guardada e pronta para imprimir")

                ObjaWord = Nothing
                Exit Sub

trata_erro:
                MsgBox("Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number)
        End If

Share this post


Link to post
Share on other sites
bioshock

Para definir a impressora, procura por algo semelhante:

objaWord.ActivePrinter = "Nome da impressora"

Para imprimir:

objaWord.PrintOut()

Share this post


Link to post
Share on other sites
FabioGuerreiro

Para definir a impressora, procura por algo semelhante:

objaWord.ActivePrinter = "Nome da impressora"

Para imprimir:

objaWord.PrintOut()

Eu queria que aparecesse aquela janela que diz as impressoras instaladas e nos escolhermos uma e depois imprimir o documento X atraves dessa impressora.

O printout pelo que já li imprime com a impressora pré defenida do windows

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.