IMPRIMIR ARQUIVO .TXT

USUARIO.EXCLUIDOS 02/04/2004 02:36:58
#18279
Crio todos relatórios de uma aplicação em um arquivo .txt (por exemplo: temp.txt), mas não sei como mandar imprimir este arquivo por linha de comando.

Deve ser simples, mas nunca fiz.

Se alguém puder ajudar, agradeço !
CASPEREARK 02/04/2004 04:09:18
#18281 Resposta escolhida
Para que dê certo você terá que:

- Criar um CommonDialog de nome dlgCommonDialog no Form Principal
- terá que colocar o conteúdo do txt em um RichTextBox ou TextBox multline de nome rtfText!
- o "ActiveForm" tem que ser o formulário que exiba o texto, e tem que tá aberto!

Aplique o código em um item de um menu ou num command box em seu form principal


Private Sub mnuFilePrint_Click()
    On Error Resume Next
    If ActiveForm Is Nothing Then Exit Sub
    
    With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        If ActiveForm.rtfText.SelLength = 0 Then
            .Flags = .Flags + cdlPDAllPages
        Else
            .Flags = .Flags + cdlPDSelection
        End If
        .ShowPrinter
        If Err  MSComDlg.cdlCancel Then
            ActiveForm.rtfText.SelPrint .hDC
        End If
    End With

end sub


Aqui dá certo, teste e qualquer erro volte postar neste mesmo tópico seu erro ou duvida com detalhes

Boa Sorte!
Tópico encerrado , respostas não são mais permitidas
Voltar