• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:セルを移動して印刷したい。)

セルの移動と印刷についての質問

このQ&Aのポイント
  • Win2003 S/P3 VB6.5で月の勤務表を作成しています。印刷時にセルの範囲を指定したいが、一部のセルは印刷したくないです。また、印刷範囲の一部を別の場所に移動したいです。印刷マクロを実行しているが、メニューバーの印刷や印刷プレビューとの連動がわかりません。
  • Win2003 S/P3 VB6.5で月の勤務表を作成中です。印刷時に特定のセルの範囲を指定し、それ以外のセルは印刷したくありません。また、一部のセルのデータを移動して印刷したいです。現在、印刷マクロを使用していますが、通常の印刷や印刷プレビューとの連携方法がわかりません。
  • Win2003 S/P3 VB6.5を使用して、月の勤務表を作成しています。印刷時に特定のセルの範囲を指定して印刷する方法を知りたいです。また、一部のセルのデータを移動して印刷したいです。印刷マクロを使用していますが、通常の印刷や印刷プレビューとの関連性がわかりません。助けてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • mar00
  • ベストアンサー率36% (158/430)
回答No.3

ANo.2です。 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True はコメントブロックしてから試してください。 そうしなければ印刷が始まってしまいます。

すると、全ての回答が全文表示されます。

その他の回答 (3)

  • kiyodasu
  • ベストアンサー率22% (4/18)
回答No.4

多少、画質は落ちますが、カメラで撮って、別シートに貼って印刷されてはいかがですか。ツールにカメラがありますが。

すると、全ての回答が全文表示されます。
  • mar00
  • ベストアンサー率36% (158/430)
回答No.2

Sub print_Click() 印刷範囲 = "$A$1:$AQ$22,$A$32:$AQ$38" ActiveSheet.PageSetup.Order = xlOverThenDown '(1) ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" '(2) ActiveSheet.PageSetup.PrintArea = 印刷範囲 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.Order = xlDownThenOver '(3) End Sub '(1)で印刷方向を上からしたへ指定 '(2)でタイトルを指定 '(3)で印刷方向を左から右へ戻しています。 '不要であれば削除してください。 '余白などの設定はあらかじめしておけばいいと思います。

すると、全ての回答が全文表示されます。
  • suuzy
  • ベストアンサー率33% (233/687)
回答No.1

印刷したくないところを 折りたためば大丈夫だと思うのですが・・ 印刷したくないところを「グループ化」しておいて 非表示にして印刷すればできると思います 枠の左の外側に□で囲んだ+と-が出てくるんです +だと非表示-だと表示されているはずです -を押して折りたたむと+が表示されて、印刷したくない場所が表示されません その状態で印刷するとできると思います

すると、全ての回答が全文表示されます。

関連するQ&A