Imprimir VBA

[Einstein 0]

Ola Pessoal, tudo bem?

 

Gostaria de saber como faço, em VBA, que apareça uma tela de solicitando a quantidade de impressoes de um determinado relatorio.

 

Existe algum comando para isso ?

 

Tentei o codigo abaixo porem ele ja imprimi direto e apenas uma copia, forçando-me a clicar duas vezes para 2 copias.

 

 

Dim stDocName As String

 

stDocName = "rel_medico2"

DoCmd.OpenReport stDocName, acNormal

 

 

Grato

Pasteur

[Daniel LM Costa 2]

acPreview ao invés de acNormal

[Einstein 0]

acPreview ao invés de acNormal

 

 

Daniel,

 

Fiz o que voce falou, mas acho que nao entendeu minha pergunta.

 

A pergunta é : Como fazer um codigo VBA, que ao clicar no botao Imprimir, ele pergunte quantas copias para imprimir de um relatorio. Com isso, nao me força a abrir o relatorio e ir em Arquivo imprimir ou clicar no botao direito.

 

 

Grato

Pasteur

[Julien.Sorel 0]

Olá,

 

Imagino que este problema já tenha sido resolvido, mas segue, assim mesmo, uma rotina feita em VBA...

 

Sub modImprimir()
Dim numCop As Integer

On Error GoTo Err_Print

    numCop = InputBox("Informe a quantidade de cópias: ", "iMasters - Access") 'Valor este que pode ser obtido por outro meios
    DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão


Exit_Print:
    Exit Sub

Err_Print:
    MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "iMasters - Access"

Resume Exit_Print

End Sub[/Code]

 

 

O link abaixo explica cada um dos parâtros:

 

http://msdn.microsoft.com/en-us/library/aa175340(v=office.11).aspx

 

 

 

 

 

Sem mais,

 

Julien Sorel