Excel VBA質問箱 IV

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

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


62990 / 76732 ←次へ | 前へ→

【18342】Re:印刷範囲の設定でエラー
回答  ackkn  - 04/9/21(火) 18:09 -

引用なし
パスワード
   ▼Kein さん:
Kein さん、ごめんなさい m(_ _)m
決して悪気があった訳ではないんです。
Kein さんは、夜中にレスを頂ける物ですから、それまでの間に解決できる事は
解決しておこうと思った訳です。
この印刷範囲に関しても、別シートにコピーしたくなかったものですから、自分なりに書籍で調べて、範囲設定の ActiveSheet.PageSetup.PrintArea なる物を見つけたものですから、色々とトライしてみたのですが、うまく行かなかったので新規に質問した次第です。
>印刷専用のシートを作ることですが、これが一番確実なやり方なのです。
ActiveSheet.PageSetup.PrintArea を使って、何とかシートコピーせずに指定する方法はありませんか?
>
>Sub MySheet_Print()
>  Dim PArea As Range
>  Dim Sh As Worksheet
>  Dim Ans As Integer
>
>  If Hck = False Then Exit Sub
>  Set PArea = Range("B1", Range("B65536").End(xlUp)) _
>  .Offset(, -1).Resize(, 5).SpecialCells(12)
>  On Error Resume Next
>  Set Sh = Worksheets("MyPrint")
>  If Err.Number > 0 Then
>   Set Sh = Worksheets _
>   .Add(After:=Worksheets(Worksheets.Count)).Name = "MyPrint"
>   Err.Clear
>  End If
>  Sh.Activete: Cells.Clear
>  PArea.Copy Sh.Range("A1")
>  ActiveSheet.PageSetUp.PrintArea = _
>  Range("A1").CurrentRegion.Address
>  Set PArea = Nothing: Set Sh = Nothing
>  Ans = MsgBox("印刷を開始しますか", 36)
>  If Ans = 6 Then ActiveSheet.PrintOut Copies:=1
>End Sub
>
>自分で理解するように習慣づけで下さい。何から何まで人まかせではダメですよ。
上記のように、自分なりに努力はしているつもりです。
それと、上記のシートコピーのコードで"MyPrint"というシート名が付きませんでしたので、下記のように修正しました。

>  Set Sh = Worksheets("MyPrint")
>  If Err.Number > 0 Then
>   Set Sh = Worksheets _
>   .Add(After:=Worksheets(Worksheets.Count))
>    Sh.Name = "MyPrint"
>   Err.Clear
>  End If

また、前回と同じように'MyPrint'シートへのコピーで、行の高さなどがうまく
コピーされません。
何卒、よろしくお願いします。(次回以降は、元レス(18301)に戻ります)
1 hits

【18325】印刷範囲の設定でエラー ackkn 04/9/21(火) 15:19 質問
【18326】Re:印刷範囲の設定でエラー IROC 04/9/21(火) 15:29 回答
【18328】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 15:48 質問
【18332】Re:印刷範囲の設定でエラー IROC 04/9/21(火) 16:31 回答
【18337】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 17:05 回答
【18342】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 18:09 回答
【18351】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 20:23 回答
【18357】Re:印刷範囲の設定でエラー ackkn 04/9/21(火) 21:56 質問
【18359】Re:印刷範囲の設定でエラー Kein 04/9/21(火) 22:19 回答
【18413】Re:印刷範囲の設定でエラー ackkn 04/9/22(水) 20:58 発言
【18416】Re:印刷範囲の設定でエラー ackkn 04/9/22(水) 22:42 質問
【18417】Re:印刷範囲の設定でエラー Kein 04/9/23(木) 0:33 回答
【18457】Re:印刷範囲の設定でエラー ackkn 04/9/25(土) 17:42 質問
【18458】Re:印刷範囲の設定でエラー Kein 04/9/26(日) 1:59 回答
【18459】Re:印刷範囲の設定でエラー ackkn 04/9/26(日) 9:27 質問
【18460】Re:印刷範囲の設定でエラー Kein 04/9/26(日) 10:51 回答
【18746】Re:印刷範囲の設定でエラー ackkn 04/10/8(金) 10:32 お礼

62990 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free