[Resolvido]Gerar nº de Controle ao Imprimir

Bom dia nossos amigos,
 
 
Estou enfrentando um problema de controle nas impressões.
 
 
Preciso que, após imprimir o relatório, gere no formulário principal um nº de controle de impressão via código VB.
 
Se alguém puder me ajudar ficarei muito grato.
 
Para facilitar envio um exemplo simples para ilustração.
 
Grato,
 
Campos.

Olá,

Que informação pretendes colocar no campo para controle???
Caso seja data e hora colocar conforme abaixo no evento do botão imprimir:

Código:


Me.Controle_Impressao = Now()
DoCmd.OpenReport "LANÇAMENTOS", acViewPreview, "Código = " & Me.Código
DoCmd.Maximize


Abraço

Boa tarde amigo ahteixeira!

Então, eu preciso que após a impressão gere um código.

Em relação a montagem deste código até consigo fazer.

O que não estou conseguindo desenvolver é o código que sinaliza que o documento já passou pela impressora.

Tipo assim:

Aperto no botão imprimir, aparece o documento para visualização, dou um CTRL+P, por exemplo aparece acaixa de diálogo da impressora, digito a quantidade de cópias que vou imprimir, dou OK, foi para impressora, imprimiu, aí sim o sistema gera um número de controle.

É possível, amigo?


Grato por sua atenção.

Campos.

Provavelmente jamais irá conseguir, porque ao utilizar o Ctrl+P está a utilizar um recurso do Windows, externo ao Banco.

Você pode imprimir por VBA e até pedir quantas cópias.

Pode fazer algo assim;

Código:

Private Sub SeuBotão_Click()
Dim intCopias As Variant

DoCmd.OpenReport "SeuRelatório", acViewPreview
    intCopias = InputBox("Quantas copias pretende imprimir ? ", "Imprimir", "1", 1800, 3000)
    If intCopias <> "" Then
        DoCmd.PrintOut , , , , intCopias
        Else
        Exit Sub
    End If
End Sub


Obrigado pela ajuda grande Mestre JPaulo. Aproveito para expressar o meu agradecimento dos excelentes exemplos que tenho encontrado.

Colega Campos, a melhor forma é ter um botão para imprimir diretamente para impressora e registar, no entanto nunca saberemos se efetivamente o relatorio foi impresso (falha impressora, etc), esta solução, nunca será um controlo rigoroso.

Também fiz um pequeno teste num relatório (2007) e acho que podemos controlar se a tecla CTRL+P foram premidas.

Coloquei este pequeno código no evento do relatório Com a tecla em baixo

Código:

Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 80 Then
        MsgBox "teste de ctrl+p"
    End If
End Sub

Fico aguardar retorno dos colegas.

Abraço

Bom dia amigos,

ahteixeira e Jpaulo,


Estarei testando e vos dou retorno.

pois a Princípio, já testei o exemplo do Jpaulo,


Agora só vou adaptálo.

fico grato a vocês,

Campos.

Bom dia Pessoal,

Testei e deu tudo certo,

fico muito grato pela disponibilidades de vocês.


Abraços,

Campos.

Obrigado pelo retorno o forum agradece.

Olá, Obrigado pelo retorno o forum agradece.
Abraço