Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12721 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8975】罫線を印字しない方法があれば教えてください ラン 03/11/12(水) 16:32 質問
【8977】Re:罫線を印字しない方法があれば教えてくだ... INA 03/11/12(水) 16:40 回答
【8978】Re:罫線を印字しない方法があれば教えてくだ... ラン 03/11/12(水) 17:07 発言
【8982】Re:罫線を印字しない方法があれば教えてくだ... ichinose 03/11/12(水) 17:52 発言
【8993】Re:罫線を印字しない方法があれば教えてくだ... INA 03/11/13(木) 8:52 回答
【9013】ありがとうございます ラン 03/11/14(金) 15:00 お礼
【8975】罫線を印字しない方法があれば教えてくだ...
質問  ラン  - 03/11/12(水) 16:32 -
引用なし
パスワード
   シートに数多くの罫線が引かれています。色や形状も様々です。
印字の際、この罫線をプリントせずにセルのデータだけを印字したいのですが
なにか方法があるでしょうか？
【8977】Re:罫線を印字しない方法があれば教えてく...
回答  INA  - 03/11/12(水) 16:40 -
引用なし
パスワード
   別シートに「値のみ貼り付け」でコピペして、印刷してはいかがでしょうか？
マクロの自動記録すれば、自動化できると思います。
【8978】Re:罫線を印字しない方法があれば教えてく...
発言  ラン  - 03/11/12(水) 17:07 -
引用なし
パスワード
   マクロで一度全ての罫線をDELして、罫線の色や形状を記録したデータを読み込み
初期状態に復帰させていましたが、思いのほか時間がかかり他の方法を探しています。
コピペは最初に考えたのですがmooooon
勝手ですがスマートにいきたいかな！すみません
【8982】Re:罫線を印字しない方法があれば教えてく...
発言  ichinose  - 03/11/12(水) 17:52 -
引用なし
パスワード
   ▼ラン さん：
こんばんは。

>マクロで一度全ての罫線をDELして、罫線の色や形状を記録したデータを読み込み
>初期状態に復帰させていましたが、思いのほか時間がかかり他の方法を探しています。
>コピペは最初に考えたのですがmooooon
>勝手ですがスマートにいきたいかな！すみません
印刷する内容にもよりますが、

PageSetup オブジェクトにDraftというプロパティがあります。
Trueにすると、
シートの印刷時にグラフィックスや罫線を印刷しない設定 (簡易印刷) になります。

これが使えませんか？
【8993】Re:罫線を印字しない方法があれば教えてく...
回答  INA  - 03/11/13(木) 8:52 -
引用なし
パスワード
   コピペの方法で試しに作ってみました。
（プレビューにしてあります。）

Sub Macro1()
　　
　　ThisWorkbook.ActiveSheet.Cells.Copy
　　Workbooks.Add

With ActiveWorkbook
　　.ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
　　.ActiveSheet.PrintPreview
　 '.ActiveSheet.Printout
　　.Close False
End With

End Sub
【9013】ありがとうございます
お礼  ラン  - 03/11/14(金) 15:00 -
引用なし
パスワード
   ありがとうございます。
お二人の方法で動作が速くなりました、また困ったらお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12721 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free