Definir a impressora pra impressao

eu uso esse codigo pra imprimir 4 relatorios
If (Me.me > 0) Then 'Se valor do contrato for <= 0
DoCmd.OpenReport "ORDEMM", acViewNormal
End If
If (Me.pi > 0) Then 'Se valor do contrato for <= 0
DoCmd.OpenReport "ORDEMp", acViewNormal
End If
If (Me.la > 0) Then 'Se valor do contrato for <= 0
DoCmd.OpenReport "ORDEMl", acViewNormal
End If
If (Me.el > 0) Then 'Se valor do contrato for <= 0
DoCmd.OpenReport "ORDEMe", acViewNormal
End If

mas gostaria de incrementar esse codigo do jpaulo nele
'By JPaulo ® Maximo Access
Dim stDocName As String
stDocName = "SeuRelatório" 'nome do seu relatório
DoCmd.OpenReport stDocName, acViewPreview
On Error Resume Next 'Caso você cancele a impressão e gere o erro 2501
'Aqui define qual a impressora em que deseja imprimir, eu coloquei a HP PSC 1600 series para exemplo
'Em vez do nome da impressora, pode defenir pelo index, Application.Printers(4) ou Application.Printers(5)
Set Reports!SeuRelatório.Printer = Application.Printers("HP PSC 1600 series")
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.Close


nao to conseguindo pois tem varios relatorios

alguem consegue me ajudar nesta duvida

Olá!

Veja se este meu tutorial lhe ajuda.

http://www.usandoaccess.com.br/tutoriais/tuto47.asp?id=1#inicio

Bom estudo!

Se aproveitar meu exemplo, poderá usar assim:

If (Me.me > 0) Then 'Se valor do contrato for <= 0
Call fncImprimir("ORDEMM", acViewNormal, , , , "HP PSC 1600 series")
End If
If (Me.pi > 0) Then 'Se valor do contrato for <= 0
Call fncImprimir("ORDEMp", acViewNormal, , , , "HP PSC 1600 series")
End If
...
...

Amigo Nadir, não precisa dar up no tópico em tão pouco tempo: foi uma hora apenas entre os dois posts. Não deu tempo nem de molhar o bico

Mas, quando passar de 24 horas sem resposta, aí dê um UP para que o tópico volte a ser visto, certo?

Avelino Sampaio

formato de impressao ta definido pra A4

mas eu quero imprimir

altura:14cm
largura: 22cm