スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になります。
excelファイル内で差込印刷をするのですが、印刷の際に「�ａvを付けて印刷したいのです。
 
シート１：データ
シート２：シート１から差込印刷用のデータを拾っている
　　　　　B1：�ａi表題）
　　　　　B2以下：差込用データ
　　　　　　　　　1、2-�@、2−�A、3-�@・・・など都度変わります。
 
シート３：差込印刷用フォーム
 
下記のように記述したのですが、印刷時に��1、��2-�A、��3-�@というふうに�ｂ�付けて
印刷したのですが、どのようにしたらよいかわかりません。
 
Ｂ列のデータに関数・セルの表示などで�ｂ�つけても関数の場合は
関数が入力されていることで、関数が入っているとこまで白紙になります。
シート１からシート２に差込用データをコピーしたときに�ｂ�追加すればよいのですが
できるなら印刷の際につけられればひと手間省けるのではと思い投稿しました。
 
下記の構文に追加することで�ｂ�つけて印刷できる方法があったらご教授お願い致します。
よろしくお願いします。
 
 
Public Sub 差し込み印刷_B列のみ()
    Dim r As Variant
 
    With Sheet1
        For Each r In .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
            With Sheet2
                .Range("B2") = r.Value
                .PrintPreview
            End With
        Next r
    End With
End Sub

誤解が無いように、No.をつけたいセルがどこなのかをきちんと書いたほうがいいでしょう。
（コードではSheet2を印刷するようになっていますが、
  説明ではシート3が印刷用フォームになっています。）
 
印刷用だけに使うシートを決めて、
その必要な箇所に、"No."という文字列を連結すればよいのではないでしょうか。

simple様
 
早速ありがとうございます。
 
書き方が悪かったようです、シート３のが印刷用です。
 
シート３のＢ２が刷範囲です。
 
�ｂﾍセルい入れるのでなく、印刷するときにつけばいいのです。
構文のどこかに”�ａhをつけて印刷するようにできないのでしょうか。
 
引き続きよろしくお願いいたします。

簡単な実例を示してもらうと、皆さんからのコメントが得やすいと思います。
<Sheet1>

     A列       B列
1
2
3

印刷の対象となるのは、あくまでも「シート」または、「セル範囲」です。
  
印刷時にセル以外のデータを付加できるのは、ヘッダー／フッターに指定できるパラメータです。
ファイル名、シート名、ページ番号があります。
 
唯一、ページ番号がNoとして使えるか検討してみてください。

(1)

 With Sheet1
    For Each r In .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))

皆様のおかげで解決の糸口を見つけ、思い通りに差込印刷ができました。
ありがとうございました。