DATA REPORT DUAS VIAS

ELEANDRO 22/03/2010 15:51:34
#337630

ola galerinha tenho um sistema para emissão de recibos e estou querendo emiti-lo em duas vias na mesma pagina com o data report e nao estou conseguindo, vou postar o código e gostaria que me ajudassem por favor.

Private Function imprimir()
Dim LCod_Recibo As Long
LCod_Recibo = TxtCodRecibo.Text

Comando.CommandType = adCmdText
Comando.CommandText = [Ô]Select cli_Nome, recidet_reciCabCod, ReciCab_Emissao, recicab_vencto, ReciCab_Cod, Trib_Descricao, ReciDet_ValUnit, ReciDet_Qtde, Recidet_ValTot, ReciCab_total From tb_RecibosDet, tb_clientes, tb_Tributos, tb_RecibosCab Where ReciCab_cod = [Ô] & LCod_Recibo & [Ô] And [Ô] & [Ô]ReciDet_ReciCabCod = ReciCab_Cod[Ô] & [Ô] And [Ô] & [Ô]ReciDet_Tribcod = Trib_Cod[Ô] & [Ô] and ReciCab_CliCod = cli_cod[Ô]

Comando.Execute

Consulta.CursorLocation = adUseClient
Consulta.Open Comando

Set Recibo.DataSource = Consulta
Recibo.DataMember = [Ô][Ô]
With Recibo.Sections([Ô]Section1[Ô]).Controls
.Item(1).DataField = Consulta(5).Name
.Item(2).DataField = Consulta(7).Name
.Item(3).DataField = Consulta(6).Name
.Item(4).DataField = Consulta(8).Name

End With
Recibo.Sections([Ô]Section5[Ô]).Controls.Item(5).Caption = Text1.Text
Recibo.Sections([Ô]Section2[Ô]).Controls.Item(1).Caption = DBCCliente.Text

[ô]TEXT1 = LBLTOTAL.CAPTION, PROVISORIO PARA RESOLVER O PROBLEMAS DO ,00
[ô]Recibo.Sections([Ô]Section2[Ô]).Controls.Item(6).Caption = FrmRecibos.Text1.Text
[ô]Recibo.Sections([Ô]Section2[Ô]).Controls.Item(9).Caption = FrmRecibos.LblTotal
Recibo.Sections([Ô]Section2[Ô]).Controls.Item(9).Caption = FrmRecibos.Ext.Text

[ô]preenchimento do cabeçalho do recibo dados escritorio ou empresa vindos do licenciado
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(2).Caption = frmCadastro.TxtNome.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(3).Caption = frmCadastro.TxtEnd.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(4).Caption = frmCadastro.TxtBairro.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(5).Caption = frmCadastro.TxtCidade.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(6).Caption = frmCadastro.TxtEstado.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(7).Caption = frmCadastro.TxtCep.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(8).Caption = frmCadastro.TxtEmail.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(9).Caption = frmCadastro.TxtTelefone.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(10).Caption = frmCadastro.TxtFax.Text
[ô]preenchimento da data de emissão, vencimento e número do recibo
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(11).Caption = TxtCodRecibo.Text
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(12).Caption = TxtEmissao.Value
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(13).Caption = txtVencimento.Value
Recibo.Sections([Ô]Section4[Ô]).Controls.Item(14).Caption = FrmCompetencia.CboComp.Text

Recibo.Sections([Ô]Section5[Ô]).Controls.Item(4).Caption = frmCadastro.TxtNome.Text


Recibo.Refresh
Recibo.Show vbModal
Consulta.Close
End Function

ele esta funcionado belzinha, só gostaria de saber como fazer para emiti-lo em duas vias na mesma pagina