プロが教えるわが家の防犯対策術!

たとえば複数ページを印刷する時に中に空白頁があったときそのページは印刷しない事って出来ますか?
その頁を削除して印刷すればいいのですが、作業の都合上頁の方向が上から下へ行くようになっています。
1ページ目がA1:F20で2ページ目がその横G1:L20のようになっています。

A 回答 (2件)

印刷したい範囲を選択して指定したらいいんだと思います。


離れている場所でもCtrl押しながらだと選べますし。
ファイル→印刷範囲の設定、で設定できます。
あとはページ設定でいい感じのページ配分にしたり。

どうでしょうか

この回答への補足

上に3ページ分、真ん中に2ページ分、下に3ページ分で上から印刷していくと真ん中のページの1ページが空白で印刷されますよね?
こんなパターンで1つずつ選択印刷設定していくと大変なのでどうしようかと思っています。
面倒でも1つずつ設定しないといけないんでしょうか?

補足日時:2003/11/14 15:47
    • good
    • 0
この回答へのお礼

すいません、今回はあまりページ数が多くなかったので教えていただいた方法で出来ました。
色々調べたり、聞いてみたりしてみてやっぱりこの方法が一番良いみたいですね?!
ありがとうございました。

お礼日時:2003/11/14 15:59

では、真中2ページ分を「表示しない」にして、


上3ページ、下3ページつまり上から下までを印刷範囲に設定すると
真中2ページ分は印刷されません。
    • good
    • 0
この回答へのお礼

ありがとうございます。
最初に教えていただいた方法でなんとかうまく出来ました。

お礼日時:2003/11/14 16:14

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q白紙部分まで印刷対象に!(エクセルについて)

エクセルのことですが、印刷する時に、何も記入されていない2ページ目も印刷対象になってしまいます。(もちろん、白紙のまま出てくるのですが)
ワードの場合の対処方法は以前、お聞きしたのですが、エクセルの場合が分かりません。
初歩的な事ですみませんが教えてください。お願いします。

Aベストアンサー

印刷のプレビューをしたときに、上に並んでいるボタンに「改ページプレビュー」と
いうのがあるので、それを押して下さい。

そのモードのときには、シートにページの単位で、青い線でセルが括られます。

この青い線は、マウスでドラッグできるので、何も記入されていない2ページ目の
枠を縮めて1ページだけにしてしまいましょう。

ちなみに、このモードから抜ける為には、もう一度プレビューを表示して、
さっきの「改ページプレビュー」があった場所に「標準」というボタンが
でているので、これを押します。

Qエクセルで空白ページが印刷されてししまう

 エクセルで印刷する場合に余分な空白ページが印刷されてしまい困っています。印刷プレビューで見ても空白ページがあります。改ページプレビューで見ても文字等が次のページにはみ出ていることはありません。ただし最初のページ(文字等が書かれている印刷したいページ)の改ページのラインの下に印刷範囲外として色が濃い部分があり、そこにはセルがあり文字を入れることもできます(見た目には文字等はありません)。この部分のセル全部を選択して削除しても空白ページはなくなりませんでした。エクセルは2003を使用しwindows XPを使用しています。是非空白ページの除去の仕方を教えてください。よろしくお願いします。

Aベストアンサー

NO2です。
1枚のシートなら 改ページの表示が出ないはずです。
改ページがどのような状態になっているか分かりませんが とりあえずはずしてみてください。
 全てのシートをアクティブ( シートの左上(行列番号の交点)をクリック)して 挿入→全ての改ページを解除 

それでも 直らなければ 印刷プレビュー 設定 拡大縮小印刷 次のページ数にあわせて印刷 横:1縦:1 

試してみてください

Qエクセルで、空欄を印刷しない設定

エクセルで、
1行目 項目名
2行目以降 各データ
60行目 上記のデータの合計
61行目~70行目 メモ

としています。

2行目以降の何行かは入力済みですが、59行目までは空欄です。
ここを印刷せず、空のセルを詰めて、60行目~70行目のメモまでを印刷したいです。

例えば、3行目まで入力が行われていた場合、印刷結果として

1行目+2行目++3行目+60~70行目

となるようにしたいです。一発印刷ができればベストです。

入力されていないところを都度非表示にしたり、印刷する部分だけ選択するのもよいのですが、印刷する回数が多いので、手間がかからない方法を教えてほしいです。

VBAには疎いのですが、記載された内容をいただいて貼り付けたり、チェックすることは可能です。

また、マクロを使わなくてもできる方法があれば、そちらのほうが助かります。

Aベストアンサー

シートコピーして空白行を削除して印刷プレビューを表示してるだけでよろしければ以下でどうぞ。

Sub 空白行削除でプレビュー表示()
Dim i As Integer
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 70 To 2 Step -1
If WorksheetFunction.CountA(.Range("A" & i & ":AB" & i)) = 0 Then
.Rows(i).Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
.PrintPreview
End With
End Sub

シートコピーして空白行を削除して印刷プレビューを表示してるだけでよろしければ以下でどうぞ。

Sub 空白行削除でプレビュー表示()
Dim i As Integer
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 70 To 2 Step -1
If WorksheetFunction.CountA(.Range("A" & i & ":AB" & i)) = 0 Then
.Rows(i).Delete
End If
Next i
Application.Calculation = xlCalculati...続きを読む

QVBA 複数セルが空白なら印刷させない

VBAで皆様に質問です。

VBA初心者です。
A1 B3 D8 K9のセルのうちどれかが空白の時は印刷させないようにして、どこのセルが空白かメッセージボックスで表示させたいのですが、どうすればいいのでしょうか?
もちろんすべて入力されていなくても印刷させたくないです。
A1は納期・B3は受注数・D8は製品名・K9は受注Noになっています。

よろしくお願いいたします。

Aベストアンサー

こんなのはいかがでしょうか?
--------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim 空白有 As Boolean
Dim メッセージ As String
If Range("A1").Value = "" Then
メッセージ = "納期"
空白有 = True
End If
If Range("B3").Value = "" Then
If 空白有 Then メッセージ = メッセージ & "、"
メッセージ = メッセージ & "受注数"
空白有 = True
End If
If Range("D8").Value = "" Then
If 空白有 Then メッセージ = メッセージ & "、"
メッセージ = メッセージ & "製品名"
空白有 = True
End If
If Range("K9").Value = "" Then
If 空白有 Then メッセージ = メッセージ & "、"
メッセージ = メッセージ & "受注No"
空白有 = True
End If
If 空白有 Then
MsgBox (メッセージ & "が、未入力なので印刷出来ません")
Cancel = True
End If
End Sub
--------------------------------------------------------------------------
※ ワークブックモジュールに入力して下さい。
※ シートは1つだけにするか、最初にセレクトするかして下さい。

こんなのはいかがでしょうか?
--------------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim 空白有 As Boolean
Dim メッセージ As String
If Range("A1").Value = "" Then
メッセージ = "納期"
空白有 = True
End If
If Range("B3").Value = "" Then
If 空白有 Then メッセージ = メッセージ & "、"
メッセージ = メッセージ & "受注数"
空白有 = True
End If
If Range("D8").Value = "" Then
If ...続きを読む

Qエクセルシートの一部を印刷しない方法

教えてください。
エクセルの画面の一部分(一行)を印刷しない方法を教えてください。
コントロールキーを使い、印刷したくない部分を飛ばし印刷設定をしてもうまくいかず、断念です。
どなたかご存知の方教えてください。

なんとか明日の朝までにと思ってるんですが・・・

Aベストアンサー

図のリンク貼り付けを使ったらどうでしょう。

リンク貼り付けは連続した範囲でしか出来ないので、
連続しない場合複数回処理することになります

手順
1.印刷用にsheetを追加
2.印刷したい範囲を選択(コピー)。
3.印刷用のsheetにリンク貼り付け
 貼り付け方法は、Shiftを押しながら「編集」をクリックし、
 「図のリンク貼り付け」を実行
4. 3~4を印刷したい範囲すべてに行う。

図のリンク貼り付けなので、
リンク元が変更されるたびに変更が掛かりますし、
印刷したいsheetの表も自由に動かせます。
百聞は一見にしかずというか、実際に実行してみると分かります。
http://arena.nikkeibp.co.jp/qa/other/20020926/102067/

参考URL:http://arena.nikkeibp.co.jp/qa/other/20020926/102067/

Qエクセルで空行を印刷しない方法

50行×30列の表を仕事で使っています。
51行目には1~50行の集計が出てきます。
印刷を押すとこの表が印刷されますが、
使っている行が1行目の場合だけのときも2~50行目の罫線が印刷されるので時間もかかります。
印刷範囲を指定すれば良いのですが沢山の人がこの表を使って印刷しているので面倒臭がっています。
簡単な方法で入力行と集計行のみ印刷する方法は有りますか?

Aベストアンサー

> 1.名前ボックスにプリントエリア、プリントタイトルという2つの名前も入っています

プリントタイトルの範囲が表の2行目より上であればこれは問題ないです。

2.空欄行に色々な計算式が入っています。これは選択した表のエリア外からデータを読みこんだりしています

式があっても、答えが "" で見えなくなっているのなら問題ないのですが・・・。ひょとして""ではなく"  "とかになってます?

エクセルで空白と判断されてるかどうか、関数で、つまり=COUNTBLANK(範囲)で調べてみてください。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

QEXCELで一覧表のデータを個別に印刷したい

こんにちわ。
質問させて頂きます。

EXCEL(エクセル)で一覧表になっているデータがありまして、それを1件1件『A4用紙1枚づつ』に印刷したい。
という発案で、色々調べたのですが上手くいかず・・・。

WORDからの差込印刷も試してみましたが、レイアウトや罫線などの設定も細かく出来ないので駄目でした。



ちなみに、一覧表のデータというのは顧客データでして、名前や住所・生年月日等が入っています。

一番理想的なのは、『EXCEL一覧表のデータ』を『別のシートに作成したテンプレート』にデータを飛ばし、テンプレートに一覧表のデータが反映される。
顧客データは数十人分のデータがありますので、印刷する際にはどのデータを印刷するかしないかを選択できる。
・・・以上が出来れば素晴らしいです。


どなたか、その方法・もしくはヒント的な事を知っている方が居ましたら教えていただけると有難いです。
宜しくお願い致します。

Aベストアンサー

Wordで様式をつくり差し込み印刷がいいと思いますが 

>WORDからの差込印刷も試してみましたが
 差し込み印刷は、エクセルデータをWordの様式に差し込みます。
 参考
  http://www.miyazaki-cci.or.jp/nichinan/pc/case92.html

なお、
>レイアウトや罫線などの設定も細かく出来ないので駄目<
とは具体的にどのようなところが設定できずにダメなのかを提示するといい案を教えていただけるのではないですか

Qエクセル VBA 条件つきの印刷

エクセルVBAにおいて、
例えば「セルA1が空白でないシートすべてを印刷する」
このようなコードは可能でしょうか?
よろしくお願いします。
(エクセル2000)

Aベストアンサー

こんばんは。

Sub Test1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
 If sh.Range("A1").Value <> "" Then
  sh.PrintOut 'Preview:=True
 End If
Next sh
End Sub

単に、こんな風にすればよいのですが、VBAを動かす前に、印刷範囲だけは確認したほうがよいかもしれません。

--それなら、VBAの意味がないではないか、と思うかもしれませんがね。(^^; もちろん、それはそれなりに方法はあるのですが。--

印刷というのは、一旦、印刷が始まると、とまらないわけですから、それで、こんなことを言っています。

sh.PrintOut Preview:=True

最初は、こんな風にして、プレビューで調べてから、印刷実行という方法もあります。

Qエクセルで上の行の値を自動的にコピーする

どなたか教えて欲しいのですが

大阪営業所
 (空白)
 (空白)
南大阪店
 (空白)
東大阪営業所
 (空白)
 (空白)
 (空白)
以下同様のパターンの表があった場合、
現在(空白)の部分に前に表示されていた値を表示したいのです。
大阪営業所
大阪営業所 
大阪営業所 
南大阪店
南大阪店 
東大阪営業所
東大阪営業所

こんな風にしたいのですが関数を使って出来ますか?
よい方法があれば教えてください。

Aベストアンサー

こんにちは。

挙げられてる例がA列だとして、
データの範囲(空白を含む)であるセルA1~A9を選択します。
CTRLキー+ G を押します。
「ジャンプ」のダイアログが出ますんで、セル選択を押します。
「空白セル」をチェックして、「OK」ボタンを押します。

空白セルだけ選択された状態になりますので、そのままの状態で
=A1 と式を入力し、 CTRLキー+ENTER として確定します。

これで、空白だったセル全体に一行上のセルと同じ内容が入りますので、
そのままでもいいですし値のコピー貼り付けなどで確定されるのも良いでしょう。

では(^^♪


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング