複数枚いんさつするには。

りゅう 2006-02-01 20:18:14 No: 93899

はじめて、書き込みさせていただきます。
現在、領収書帳票を出力するプログラムをＶＢ６．０で作成しています。

オラクルのデータベースサーバよりデータを加工して領収書を1枚は出力させることはできましたが、ほぼ同じ内容で2枚出力させることは可能なのでしょうか?
帳票の中身の一部分が「領収書」と「領収書(控)」にして後は同じ内容で2枚出力させたいのです。
よろしくお願いします。

『出力させる部分のソース』
lng_Y = 8200
For i = 1 To 4
    If Not (IsNull(入力予約番号(i).Text) Or 入力予約番号(i).Text = "") Then
        yoyakunumber = 入力予約番号(i).Text
        'ヘッダー、フッター情報取得処理
        If fpr_GassanRyosyuGetHeaderData(yoyakunumber) <= 0 Then
        End If
        '明細情報取得処理
        If fpr_GassanRyosyuGetDetailData(yoyakunumber) <= 0 Then
        End If
    Else
        Exit For
    End If
Next i

    k = 0

    Do Until k > UBound(mudt_RyosyuMeisai)
    '明細部の出力処理
        If fpr_GassanRyosyuMeisaiPrint(mudt_RyosyuMeisai(k), lng_Y) = False Then
        End If
        lng_Y = lng_Y + 400
        k = k + 1
    Loop
    'ヘッダー(固定部)の出力処理
    If fpr_GassanRyosyuHeadPrint() = False Then
        GoTo Err_OKButton_Click
    End If
    'フッター(固定部)の出力処理
    If fpr_GassanRyosyuFooterPrint() = False Then
        GoTo Err_OKButton_Click
    End If
    'ヘッダー(データ部)の出力処理
    If fpr_GassanRyosyuHeadDataPrint() = False Then
    End If
    'フッター（データ部）の出力処理
    If fpr_GassanRyosyuFooterDataPrint() = False Then
    End If

あっきー 2006-02-02 07:44:29 No: 93900

該当する部分を変えて印刷するだけだと思いますが
何が知りたいの？

自動的に「領収書」を「領収書(控)」と変更するコマンドがあるかどうかですか？
ないです。