Olá pessoal,
Referente ao tópico:
http://maximoaccess.forumeiros.com/t18128-resolvidobotao-imprimir?highlight=bot%C3%A3o+personalizado+msg
no exemplo na Mensagem nº 4, tem como adicionar uma "caixa de seleção" para impressão DUPLEX (dois lados da pág.)
como neste código:
Private Sub BotaoPrint_Click()
Dim RPT As Report
DoCmd.OpenReport "rlt_Hospitais", acViewPreview, , , acHidden
Set RPT = Reports!rlt_Hospitais
With RPT.Printer
.Copies = 1
'.Duplex = acPRDPVertical
.Duplex = acPRDPHorizontal
End With
DoCmd.OpenReport "rlt_Hospitais", acViewNormal
DoCmd.Close acReport, "rlt_Hospitais", acSaveNo
End Sub
Desde já agradeço, Luz e Paz!
Referente ao tópico:
http://maximoaccess.forumeiros.com/t18128-resolvidobotao-imprimir?highlight=bot%C3%A3o+personalizado+msg
no exemplo na Mensagem nº 4, tem como adicionar uma "caixa de seleção" para impressão DUPLEX (dois lados da pág.)
como neste código:
Private Sub BotaoPrint_Click()
Dim RPT As Report
DoCmd.OpenReport "rlt_Hospitais", acViewPreview, , , acHidden
Set RPT = Reports!rlt_Hospitais
With RPT.Printer
.Copies = 1
'.Duplex = acPRDPVertical
.Duplex = acPRDPHorizontal
End With
DoCmd.OpenReport "rlt_Hospitais", acViewNormal
DoCmd.Close acReport, "rlt_Hospitais", acSaveNo
End Sub
Desde já agradeço, Luz e Paz!