- ベストアンサー
マクロで呼び出したプレビュー画面から印刷できない
マクロで呼び出したプレビュー画面から印刷できない エクセル2010です。 下記のマクロで呼び出したプレビュー画面から印刷できません。 Sub test() ActiveSheet.PrintPreview End Sub で呼び出したプレビュー画面から、印刷するために一番左上の「印刷」をクリックすると 実行時エラー1004 WorksheetクラスのPrintPreviewメソッドが失敗しました。 となってしまいます。 何がわるいのでしょうか?別のパソコンのエクセル2016では問題なく印刷できます。 頭をかかえています。
- emaxemax
- お礼率100% (823/823)
- Excel(エクセル)
- 回答数1
- ありがとう数2
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こちらでは ActiveSheet.PrintOut Preview:=True
関連するQ&A
- マクロで印刷ができません
簡単な表を作成し、デザインモードでフォームコントロールでボタンを作成し、マクロの作成をしました。 印刷するためにボタンをクリックしても 印刷プレビューで画面が止まってしまいます。 ところがプレビュー画面を閉じると印刷が始まります。 何度やりかえてもマクロで最後まで印刷ができません。 記述は次のようになっています。 プリントも記述されているようなのですが・・・・ エクセル2007を使っています。 どなたか助けてください Sub ボタン3_Click() ' ' ボタン3_Click Macro ' ' ActiveSheet.Shapes("Button 3").Select Selection.Characters.Text = "ボタン 3" Range("B3:E12").Select ActiveSheet.PageSetup.PrintArea = "$B$3:$E$12" ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub
- ベストアンサー
- Windows Vista
- プリンターのプロパティの設定画面 vba
Sub test() ActiveSheet.PrintPreview End Sub このコードで印刷プレビューにできるのですが CTRL+Pを押したのと同じような プレビュー画面を表示することは可能ですか? ActiveSheet.PrintPreview このコードだと、 プリンターのプロパティの設定画面がでないので 手動で行った時と同様、 プリンターのプロパティがでるVBAコードが知りたいです。
- ベストアンサー
- Excel(エクセル)
- ブラウザ上でEXCELの印刷プレビューをする方法は?
通常、エクセルで「印刷プレビュー」をする場合、ツールバーの「印刷プレビュー」を選択するか、VBAマクロで"ActiveSheet.PrintPreview"を組み込んでも行うことができますが、ブラウザ上で開いたエクセルの印刷プレビューを行う方法を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- Web上のエクセルのVBA操作について
OSはWin2000、エクセルも2000です。 社内のイントラネット上にエクセルのBOOKを置いてあります。 ダウンロードせずにダブルクリックでイントラ上で開いたこのBOOKに対するVBA操作で、以下の3つを試しましたが、すべてエラーになり、プレビューすることができません。 どう直せばよいのでしょうか? Sub test() ActiveSheet.PrintPreview End Sub Sub test2() ThisWorkbook.ActiveSheet.PrintPreview End Sub Sub test3() x = ThisWorkbook.ActiveSheet.Name ThisWorkbook.Sheets(x).PrintPreview End Sub また Sub 終了() ActiveWorkbook.Close (False) End Sub もまったく働きません。 どうやったら終了できますか?
- 締切済み
- オフィス系ソフト
- 【Excel2007】印刷プレビューかどうかを判断したい
Excel2007を使用しています。 マクロで印刷プレビューかどうかを判断したいのですが、 どのようにプログラムしたら良いでしょうか? Wordであれば、以下のようにプログラムすれば判断できると思います。 If Application.PrintPreview = False Then Call MsgBox("印刷プレビューでありません。") End If 同じことをExcelでやりたいのですが もし方法をご存知でしたら教えてください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで印刷設定をすると遅くなる
Excelのマクロについて 久しぶりに質問させていただきます。 マクロで印刷の設定をすると 遅くなるのでしょうか? Range("A1:Z10").Select With ActiveSheet.PageSetup .Orientation = xlLandscape .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .TopMargin = Application.CentimetersToPoints(1) .BottomMargin = Application.CentimetersToPoints(1) .LeftMargin = Application.CentimetersToPoints(1) .RightMargin = Application.CentimetersToPoints(1) End With Selection.PrintPreview というようなマクロを作って実行すると プレビュー画面が出るまでに かなり時間がかかるのです。 職場のパソコンであるため パソコンそのものがかなり古いのですが マクロを使わずに直接、印刷の設定をすれば すぐにプレビューが表示されます。 ただ、同じシートをいろいろな方法で印刷する必要があるため マクロを組んでみたわけです。 ちょっと我慢すればいいだけで 仕事そのものに大きく影響するわけではありませんが 皆様のご助言をよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで印刷プレビューを閉じる方法
印刷プレビューをだすなら PrintPreviewでわかるのですが、表示されたプレビュー画面を、自分で「閉じる」または「印刷」ボタンを押さなくとも閉じるにはどう書けばいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロの質問です。
オートフィルタを使ってデータを検索しているのですが、ファイルを閉じる時には自動的に「全て表示」にして閉じたいと思います。 試しに下記のマクロで実行してみたのですが、 Sub Auto_Close() ActiveSheet.ShowAllData End Sub フィルタで検索していれば自動的に「全て表示」になって問題なく閉じる事ができるのですが、最初から「全て表示」になっていると失敗し(当然ですよね)下記のエラーメッセージが出ます。 実行時エラー'1004': worksheetクラスのshowAllDataメソッドが失敗しました。 そこで、「全て表示」になっている時はそのまま閉じるを追加してマクロを完成させたいのですが、どうすればいいのでしょうか? 教えて下さい。お願いします。
- ベストアンサー
- オフィス系ソフト
- <EXCELでマクロを使って連続で印刷しようとすると2枚目でエラーにな
<EXCELでマクロを使って連続で印刷しようとすると2枚目でエラーになる。> EXCELでマクロを使って連続で印刷しようとしています。 1枚目は良いのですが、2枚目でエラーになってしまいます。 EXCEL自体が落ちてしまいます。 エラー400やエラー10004が出たりします。 アプリケーション定義や オブジェクト定義のエラーとも出ます。 マクロは次のようなものです。 Sub test() For i = 1 To 5 .Cells(2, 34).Value = i ActiveSheet.PrintOut Next i End Sub Cells(2, 34)に数字を入れてVLOOKUPでデータを差し込みます。 どんな問題があるでしょうか? 宜しくお願いいたします。 なお、EXCELはEXCEL2002です。
- 締切済み
- その他MS Office製品
- 印刷プレビュー
excel2010 マクロでバックステージビュー 印刷プレビューと印刷ダイアログ表示を表示させ確認後に印刷を考えています そのバックステージビューの画面で印刷プレビューと印刷ダイアログ表示されますので 『 印刷プレビューの確認 』 『 印刷部数 3』 『 印刷するページの指定 1ページ目から2ページ目 』 の入力がマクロでしてあるのを確認してから印刷ボタンを押すだけにしたいのです printoutメソッドを使いましたが思うようにいかないのでどのようにマクロを組んだらよいのか悩んでいます
- 締切済み
- Excel(エクセル)
お礼
回答をいただいていたことに気づかず、大変失礼いたしました。 ご教示の方法でプレビュー後印刷が出来ました。 ただ、ActiveSheet.PrintPreviewでなんでエラーがでるのかがさっぱりわかりません。ネットワークプリンターを使用しているせいでしょうか? おなじエクセル2010でもプリンター直結のはエラーになりませんでした。
補足
試しに Dim rtn rtn=Application.Dialogs(xlDialogPrintPreview).Show としてみて、プレビュー画面でキャンセルしたらrtnはFALSEを返しましたが、印刷をクリックしたらやはりエラーになり rtnはEmptyでした。