青い空

印刷そういうことでしたか

shoki = ActiveSheet.Name
cou = 2
For i = 3 To 5 Step 1
If Sheets(shoki).Range(”D” & i) = True Then
’sheets(”印刷対象シート名”).activate
’ここに印刷コードでfrom to の値を両方couにする
End If
cou = cou + 1
Next
Sheets(shoki).Activate
でできると思います。

就業規則
人材　育成
前のは１ページ目から印刷しているのでずれてますね
あと印刷方向順がありますので気をつけてください

この投稿は 2009 年 6 月 24 日 水曜日 12:07 PM に 未分類 カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 コメントを残すか、ご自分のサイトからトラックバックすることができます。