-PR-
締切済み

エクセルの印刷について

  • 暇なときにでも
  • 質問No.146278
  • 閲覧数55
  • ありがとう数3
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 85% (6/7)

MS office97を使用しています。

エクセルの印刷について 教えて下さい。
「シート2」表を作成しています。
「シート1」の「A1」の入力されている数字が 1 であれば
「シート2」の表を1部印刷
「シート1」の「A1」の入力されている数字が 2 であれば
「シート2」の表を2部印刷
と云うように、指定された通りに 印字出来る マクロなどは
組めないのでしょうか????
出来るのであれば 教えて下さい。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

こんな感じでしょうか。A1に入力された部数、Sheet2を印刷します。
『シート1、シート2』がシート名なら『Sheet1、Sheet2』を変えて下さい。(Excel97で確認)

標準モジュールに貼り付けます。

Sub Insatu()
  Dim maisuu As Integer '枚数

  maisuu = Worksheets("Sheet1").Range("A1")
  If maisuu > 0 Then
    Worksheets("Sheet2").PrintOut Copies:=maisuu
  Else
    MsgBox "枚数を指定して下さい。"
  End If
End Sub


このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-

特集


専門家があなたの悩みに回答!

ピックアップ

ページ先頭へ