Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11010 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18665】複数シートの印刷可能領域を最大にするには jaja 04/10/4(月) 13:15 質問[未読]
【18666】Re:複数シートの印刷可能領域を最大にする... つん 04/10/4(月) 13:38 発言[未読]
【18667】Re:複数シートの印刷可能領域を最大にする... jaja 04/10/4(月) 15:18 お礼[未読]
【18668】Re:複数シートの印刷可能領域を最大にする... つん 04/10/4(月) 15:36 発言[未読]
【18669】Re:複数シートの印刷可能領域を最大にする... jaja 04/10/4(月) 16:15 質問[未読]
【18670】Re:複数シートの印刷可能領域を最大にする... Jaka 04/10/4(月) 17:03 発言[未読]
【18671】Re:複数シートの印刷可能領域を最大にす... jaja 04/10/4(月) 17:28 発言[未読]
【18675】Re:複数シートの印刷可能領域を最大にす... Jaka 04/10/5(火) 14:41 発言[未読]
【18696】Re:複数シートの印刷可能領域を最大にす... Jaka 04/10/6(水) 11:06 回答[未読]
【18665】複数シートの印刷可能領域を最大にするに...
質問  jaja  - 04/10/4(月) 13:15 -
引用なし
パスワード
   お手数ですが、ご教授願います
複数シートのページ設定→オプション設定で印刷可能領域を最大に
しようとしましたが、1シートごとにしか設定できないようで
それならばと
自動記録を利用して下の様なマクロとしましたがシート1のみで
後は設定が出来ません。EPSONプリンタです。
ネットにて色々探したのですが該当する記載が見当たらないので
もしかするとそもそも、できないのでしようか
宜しくお願いいたします。ちなみに下記40シートは全て同じデザイン
です。

Dim i As Long
For i = 1 To 40
　　Sheets(i).Select
　　ActiveSheet.PageSetup.PrintArea = ""
　　With ActiveSheet.PageSetup
　　　　.LeftMargin = Application.InchesToPoints(0.47244094488189)
　　　　.RightMargin = Application.InchesToPoints(0.275590551181102)
　　　　.TopMargin = Application.InchesToPoints(0.590551181102362)
　　　　.BottomMargin = Application.InchesToPoints(0.196850393700787)
　　　　.HeaderMargin = Application.InchesToPoints(0.31496062992126)
　　　　.FooterMargin = Application.InchesToPoints(0)
　　　　.PrintHeadings = False
　　　　.PrintGridlines = False
　　End With
　　Next i
End Sub
【18666】Re:複数シートの印刷可能領域を最大にす...
発言  つん E-MAIL  - 04/10/4(月) 13:38 -
引用なし
パスワード
   こんにちは。

えーと、こちらでコピペして、シート６枚ぐらいで実行してみましたが、
６枚全部に設定されているみたいですよ？

このコードを拝見すると、「ページ設定」の中の「余白」や「シート」
で設定できる部分ですよね？

>複数シートのページ設定→オプション設定

と書かれてますが、「ページ設定」の中の「オプション」のことですか？
これだと、たしかVBAでは制御できなかったと思います……
なので、違うよね？

ちなみに、シートを複数選択した状態で、普通にページ設定しても、
選択したシート全てに設定されましたが・・・
【18667】Re:複数シートの印刷可能領域を最大にす...
お礼  jaja  - 04/10/4(月) 15:18 -
引用なし
パスワード
   ▼つん さん：
>こんにちは。ありがとうございました
>
>
>>複数シートのページ設定→オプション設定
>
>と書かれてますが、「ページ設定」の中の「オプション」のことですか？
>これだと、たしかVBAでは制御できなかったと思います……
>なので、違うよね？
>
まさしくオプションの事です。
　
　vbaでは　制御できない　　とのことですが

他に複数シートに一括して設定する方法があるのでしょうか
お教えいただければ助かります。
【18668】Re:複数シートの印刷可能領域を最大にす...
発言  つん E-MAIL  - 04/10/4(月) 15:36 -
引用なし
パスワード
   >>と書かれてますが、「ページ設定」の中の「オプション」のことですか？
>>これだと、たしかVBAでは制御できなかったと思います……
>>なので、違うよね？
>>
>まさしくオプションの事です。
>　
>　vbaでは　制御できない　　とのことですが
>
>他に複数シートに一括して設定する方法があるのでしょうか
>お教えいただければ助かります。

んー、これだって、シートを複数選択した状態で設定すれば、選択されているシート全てに設定されると思いますが・・・
こちらでやってみたら出来ましたよ？
【18669】Re:複数シートの印刷可能領域を最大にす...
質問  jaja  - 04/10/4(月) 16:15 -
引用なし
パスワード
   つんさん
ありがとうございました。

どうも話が食い違っているようなので、Excelのバージョンの問題かと思い
息子のExcel2002で試したところ　つんさんの　おっしゃる通りでした。

私が使っていたのはExcel98と97です。
　　
　　初めからそのように書け、そんな古いのは捨てて新しいのを買え....

ごもっともです。お手を煩わせまして申し訳ございません。
ネットで調べても出てこないはずです........

お手数をおかけついでに
ちなみに上記バージョンでの対策は何かございませんか。
いゃ、きっと古いバージョンの時に困って解決策を出された方がいるのでは
と期待しつつ、お願いをいたします
【18670】Re:複数シートの印刷可能領域を最大にす...
発言  Jaka  - 04/10/4(月) 17:03 -
引用なし
パスワード
   つんさん　こんにちは。[ﾊﾟｰ]
おじゃまします。

え〜と、一応私も回答に参加したんですが、つんさんと全く同じ事に気づいて削除しました。
現在は、Win2000 & EXL97ですが、ちょっと前は Win98se & EXL97 でした。
基本的に操作マクロなどは、Win98se & EXL97の時のままです。
【18671】Re:複数シートの印刷可能領域を最大にす...
発言  jaja  - 04/10/4(月) 17:28 -
引用なし
パスワード
   ▼Jaka さん：
質問をいたしましたjajaです、お書き頂きました事が理解できませんでした。

>つんさん　こんにちは。[ﾊﾟｰ]
>おじゃまします。
>
>え〜と、一応私も回答に参加したんですが、つんさんと全く同じ事に気づいて削除しました。
>現在は、Win2000 & EXL97ですが、ちょっと前は Win98se & EXL97 でした。
>基本的に操作マクロなどは、Win98se & EXL97の時のままです。

私の勘違いでしたらお許し下さい。
Excel98(Mac) 97(Win)の意味で書かせて頂きました。
【18675】Re:複数シートの印刷可能領域を最大にす...
発言  Jaka  - 04/10/5(火) 14:41 -
引用なし
パスワード
   >どうも話が食い違っているようなので、Excelのバージョンの問題かと思い
>息子のExcel2002で試したところ
>私が使っていたのはExcel98と97です。

>Excel98(Mac) 97(Win)の意味で書かせて頂きました。

え〜と、jajaさんには、この意味が解るのでしょうけど、第３者にはよくわかりませんでした。
Excel98は、Office98付と称して、PCを売っていたところもあったような記憶がありますから、それと勘違いしているのかと思いました。

よく質問者が、Win98 & Ecel98と書いて、知った風だかどうかわからない回答者に「Office98は、Macです。」と、いじめられているのをよく見ているもので.....。
因みにWin版Office98なるものは、Wordは98ですが、Excelは97です。
さすがにMSは、Office98とはせずにOffice97、Word98版として売っていたみたいですが...。

で、本題ですが、
Office98は使いづらいのでよくわかりませんが、97と言うとWinのOffice97ですよね。
私は、Office97だと思って書かせてもらいました。

Macは、電源入れてるだけで（内臓電池の問題）ほとんど触ってないません。
ここ３年でデスクトップが４〜５回、パワーブックがやっぱり４〜５回立ち上げてみただけ。
【18696】Re:複数シートの印刷可能領域を最大にす...
回答  Jaka  - 04/10/6(水) 11:06 -
引用なし
パスワード
   こんにちは。
昨日、OS8.1 & Office98 で確かめてみました。
しっかり出来ましたよ。

雑談
前から確認してみようと思っていたことをついでに確認してきました。
MacでアクティブXコントロールって使えるのだろうか....。

softWin95のOffice2000で作って、MacのOffice98で確認してきました。
Office98に　表示　→　ツールバー　にコントロールツールボックスが無い。
Winで言うフォームの方しかなかった。
Winで、作ったシート上のコントロールボタンが使えませんでした。選択すら出来なかった。私のだけかなぁ？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11010 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free