[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『印刷を左右にまとめて1ページに設定したい』(キリキ)
勤怠スケジュール表が縦長に一月分有ります。
○月1日
9:00 10:00 11:00 12:00 aaa ←−−−−−−−−→ bbb ←−−−−−−−−→ ccc ←−−−−−−−−→
○月2日
9:00 10:00 11:00 12:00 aaa ←−−−−−−−−→ bbb ←−−−−−−−−→ ccc ←−−−−−−−−→
31日まで続く↓
上記の表を一週間で一枚の印刷にしたいのですが・・・
□【1日】 □【5日】
□【2日】 □【6日】
□【3日】 □【7日】
□【4日】
別に印刷用のシートを作成しないと出来ないでしょうか?
分かりにくい説明で申し訳ございません・・・
1週間分の表の合計行数は、1枚の用紙にはいるのでしょうか?
印刷範囲を設定して、普通に印刷すればよいのでしょうか? それとも印刷用に表のレイアウトを変更する必要があるのでしょうか?
印刷時の表の体裁を教えて下さい。
(INA)
1シートに縦で、1日〜31日(1月分)があります。
1週間で、1枚の紙をプリントアウト(5枚分相当)したいのですが
縦に7日分並べると小さくなるし、余白部分が多くなってしまいます。
そこで、1枚の紙に対し左部分に4日分・右部分に3日分とし一週間分を
1枚の用紙にプリントアウトできないかと思っております。
説明がヘタなもので、申し訳ありません
(キリキ)
プリンタの設定に 1枚あたりの印刷ページ数は設定できますか?
5枚分相当を1枚にするとなると、2頁/1枚 で印刷しても 縮小せざるを得ないと思いますが・・?
シートは何列使っていて、表は1日あたり何行くらいなのでしょうか? また各日付の区切りはどのようになっているのですか?
もう少し、シートの状況を詳しく教えて頂けませんか?
(INA)
IMAさん返信ありがとうございます。
プリンタの設定の 1枚あたりの印刷ページ数は設定とはどこにあるのでしょう?
シートの行は、A〜BMまで 列は 1日あたり 41
1か月分では 1271 になってます。
(キリキ)
プリンタのプロパティで設定できますが、 プリンタの機種によってはありません。
印刷→プリンタの「プロパティ」で、確認してみて下さい。
レーザーだと、たいていあります。
(INA)
(キリキ)
メーカーと、機種(型番)は分かりますか?
(INA)
設定 → プリンタ を見ますと
FX DocuCantre 251/351/401 ART
となってます。
(キリキ)
「プロパティ」は出るのですが、1枚あたりの印刷ページ数の設定がありません・・・
(キリキ)
横レス失礼します。 該当機種はありませんが、プロパティから上のタブの詳細設定の中の標準の設定を押して レイアウト−シートごとのページという項目はありませんでしょうか。 これが同じ内容かと思います。 (川野鮎太郎)
>レイアウト−シートごとのページという項目はありませんでしょうか。
自分が確認しているところがあっているとすれば、その項目はありません。
原始的とみりさんの言うように、ゼロックス社に聞いてみるのがいいみたいですね・・・
(キリキ)
ありませんでしたか(^_^A; 富士ゼロックスの該当機種をHPで検索したら、オプションによって出来るようですね。 以下のURLに掲載されてますね。 http://www.fujixerox.co.jp/product/docucentre_401cf/copy.html (川野鮎太郎)
川野鮎太郎さん親切に教えていただき、ありがとうございます。 ということは、このプリンターでは出来ないので、別に印刷用のシートを作り 編集等をしないと無理と言うことですね・・・ (キリキ)
いや、キリキさんのお使いの複合機の詳細な構成がわかりませんので、出来ないとは 断言できかねますが、いろいろ悩むよりは、シートをそのままコピーして印刷用に 加工したほうが早いかもしれませんね。(^_^A; (川野鮎太郎)
印刷用のシートを作って、指定ページをマクロでコピーしたほうが 手っ取り早いように思えますね。
(INA)
マクロは今、勉強中でして・・・^^; 編集加工してみます^^ (キリキ)
もう見ておられないかもしれませんが、下手なりにマクロを作ってみましたので、 もし見られたら試してみてください。
Sub test() SN = ActiveSheet.Name Sheets(SN).Select Sheets(SN).Copy Before:=Sheets(2) Columns("A:BM").Select Selection.Copy Columns("BO:BO").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Clear
For i = 0 To 3 row1 = 41 * 4 * i Range(Cells(41 * 4 + row1 + 1, 1), Cells(41 * 7 + 41 * 4 * i, 65)).Select Selection.Cut Cells(row1 + 1, 67).Select ActiveSheet.Paste Rows(41 * 4 + row1 + 1 & ":" & 41 * 7 + row1).Select Selection.Delete Shift:=xlUp Next i End Sub
人に見せるのは恥ずかしい限りですが、用を足せば良いという事でやってみました(^_^A; (川野鮎太郎)
川野鮎太郎さん、ありがとうございます!! やってみました!理想どおりに出来ました!! 本当にありがとうございます。 やっぱりマクロって便利ですね^^ がんばって勉強します。 (キリキ)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.