Relatorio com Assinatura

Ola algume pode me ajudar.

Tenho um programa que imprimir dois relatorios com assinatura, sendo que ele vai buscar os dados da pessoa antes de imprimir e jogar em um arquivo, antes de imprimir. quando mando imprimir na rede os dois relatorio, ele imprimir com a mesma assinatura, sendo que cada um e uma assinatura. ja fiz essa rotira pra bloquer o arquivo antes de imprimir mais não relsonveu, o que eu faço.

    Assinaturas (3)
    OutputDestination = 0
    Report1.PrinterCopies = 1
    Report1.Destination = OutputDestination
    LocText$ = LCase(Trim(vdrive))
    If Right$(App.Path, 1) <> "" Then LocText$ = LocText$ + "" 'handles the root
    Report1.DataFiles(0) = LocText$ + "Contabil.mdb"
    Report1.ReportFileName = LocText$ + "relempe2.rpt"

rotina assinartura

Public Sub Assinaturas2(Pa As Integer)
On Error GoTo Assinatura2EH
   Dim DBName50 As String
   DBName50 = Trim(vdrive) + "Contabil.mdb"
   Dim MyDB50 As Database, MyTable14 As Recordset
   Set MyDB50 = Workspaces(0).OpenDatabase(DBName50)
   Set MyTable14 = MyDB50.OpenRecordset("Assinatura", dbDenyRead) ' Open Table.
   Set MyTable50 = MyDB50.OpenRecordset("AssinaForm", dbDenyWrite) ' Open Table.
   .

se alguem tiver uma ideia e agradeço. obrigado...