※ ChatGPTを利用し、要約された質問です(原文:セルを移動して印刷したい。)
セルの移動と印刷についての質問
このQ&Aのポイント
Win2003 S/P3 VB6.5で月の勤務表を作成しています。印刷時にセルの範囲を指定したいが、一部のセルは印刷したくないです。また、印刷範囲の一部を別の場所に移動したいです。印刷マクロを実行しているが、メニューバーの印刷や印刷プレビューとの連動がわかりません。
Win2003 S/P3 VB6.5で月の勤務表を作成中です。印刷時に特定のセルの範囲を指定し、それ以外のセルは印刷したくありません。また、一部のセルのデータを移動して印刷したいです。現在、印刷マクロを使用していますが、通常の印刷や印刷プレビューとの連携方法がわかりません。
Win2003 S/P3 VB6.5を使用して、月の勤務表を作成しています。印刷時に特定のセルの範囲を指定して印刷する方法を知りたいです。また、一部のセルのデータを移動して印刷したいです。印刷マクロを使用していますが、通常の印刷や印刷プレビューとの関連性がわかりません。助けてください。
Win2003 S/P3 VB6.5を使用しています。
月の勤務表を作成しています。印刷のところで悩んでいます。
作成した表の内、印刷したいセルはA1からAQ22と、跳んで、A32からAQ38の範囲。途中のA23からAQ30は印刷したくないのです。
なおかつ、1頁分の印刷範囲はA1からAQ30までですので、A32からAQ38の範囲をA23からAQ30のエリアに移動して、印刷したいのです。
また、印刷したくないA23からAQ30の範囲のデータはそのまま残しておきたい。他のシートへコピーしておく方法は行いたくありません。
下記のように作成しましたが、印刷プレビューにはA1からAQ22だったり、A32からAQ38の範囲だけでした。
解りにくいかもしれませんが、要は「あるセル範囲に、別のセル範囲を移動して印刷、印刷前の元データはそのまま残しておきたいのです。
Sub print_Click()
印刷範囲1 = "$A$1:$AQ$22"
印刷範囲2 = "$A$32:$AQ$38"
ActiveSheet.PageSetup.PrintArea = 印刷範囲1
ActiveSheet.PageSetup.PrintArea = 印刷範囲2
' Range(印刷範囲1).Select
' Range(印刷範囲2).Select
' ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
Stop
End Sub
また、この印刷マクロ(Sub print_Click())はフォームコントロールのボタン機能から呼び出していますが、通常のメニューバーの印刷、印刷プレビューとどう連動しているのでしょうか?
以上、助けてください。