- ベストアンサー
VBAでユーザー定義用紙サイズの値を取得する
現在、Excelで出荷伝票(連続用紙)を印刷するVBAを作成しています。 [プリントサーバ-のプロパティ]に登録している「出荷伝票 幅9インチ 高さ4インチ」を用紙サイズに指定したいのですが、VBAを実行するパソコンが変わると「ActiveSheet.PageSetup.PaperSize」に設定される値も変わってしまうため、どうすれば良いのか悩んでいます。 理想としてはVBAを実行するとその都度「出荷伝票」の用紙サイズ(コード)を取得しPaperSizeに設定できれば良いのですが、そのような方法をご存知の方がおられましたらご教示のほどよろしくお願い致します。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- ExcelVBAでの印刷設定について
ExcelVBAで印刷設定をしようと考えています。 しかし、 ActiveSheet.PageSetup.PaperSize = ??? 作成した用紙サイズをどの様に設定して良いか解りません。 マクロの記録で試した所、 ActiveSheet.PageSetup.PaperSize = 228 となるのですが、使用環境によって、この228が変動してしまいます。 使用PCは合計20台程度で、ネットワーク経由でプリントする仕組みです。 Dim 出力用紙 AS String 出力用紙 = "伝票A" For Each 用紙名 In 用紙配列 If 用紙名 = 出力用紙 Then ActiveSheet.PageSetup.PaperSize = 用紙名.用紙番号 End If Next 用紙名 みたいな感じに出来ないと考えています。 ご存知の方がおられましたら、アドバイスよろしくお願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- エクセル出力時の用紙サイズ設定
ASPにおいてエクセルを出力(表示)しているのですが 用紙サイズを変更できません!!!! xlsSheetWrk.PageSetup.PaperSize = xlPaperA3 (xlsSheetWrkはシートオブジェクト) これではPaperSizeプロパティのエラーになってしまいます。 よろしくおねがいします。
- ベストアンサー
- Microsoft ASP
- アクセスの伝票ウィザード(連続紙)の幅と高さの指定
アクセスの伝票ウィザード(連続紙)の幅と高さの指定方法を教えて下さい。 【環境】 ・WindowsXP ・アクセス2003 ・EPSON VP-1900 ESC/P アクセス2003で伝票(連続紙)の設定を行っています。 サイズを定規で測ると 幅22.2cm(約8.7inch) 高さ10.15cm(4inch) 伝票ウィザードのテンプレートに無いのでどうやって作成していいのか分からずに質問しました。 例えば、テンプレートを使って作成しても構わないのでしょうか? 新規作成→伝票ウィザード→佐川急便 レポートのプロパティ 幅17.122cmを22.2cm(約8.7inch)に変更 セクションのプロパティ 高さ5.894cmを10.15cm(4inch)に変更 今まではエクセルで顧客管理していました。 伝票を印刷する時には、ワードの差込印刷で行っていました。 ワードのページ設定の用紙サイズは、 連続紙15×4inch 幅381mm 高さ101.6mm 申し訳ありませんが、教えて下さい。
- ベストアンサー
- その他(データベース)
- 用紙のサイズが出てこない・・・!!!
現在NECのパソコン、Win98を使用しています。後、プリンタはEPSONのVP-600というプリンタを使用しています。これはお店の伝票を出すためにこのVP-600を使用しているのですが、指定したい用紙サイズが「連続紙10×7インチ」です。しかし、この用紙サイズがVP-600のプロパティを開いて見ても表示されていません。 知り合いが持っているWin98にVP-600をインストールして試してみたところ、きちんと「連続紙10×7インチ」という表示が出ています。 何故私のパソコンにはこの「連続紙10×7インチ」が出ていないのか、が分かりません。 どなたかアドバイスをいただけないでしょうか?このままだと伝票が出せないんです。宜しくお願い致します。 (ちなみにいままではWin95を使っていました。そのときはきちんと出ていたように思います。そのパソコンが壊れたので、Win98を使おうとしています。)
- ベストアンサー
- Windows 95・98
- ExcelのVBAでの用紙のサイズ設定方法
ExcelのVBAで、定形でない用紙のサイズ設定方法を教えてください。 例えばA4は PaperSize=xlPaperA4 ですが15cm×10cmの場合はどのように記述すればよいのでしょうか?
- ベストアンサー
- その他MS Office製品
- Accessレポートのページ設定
Access2000でレポートを作成して出力するようにしているのですが、何故か指定した用紙サイズで出力されません。 今回、Accessのプログラムはそのままで、新しくPCを変更してAccessを動かそうとしています。 レポートの「ページ設定」ページタグの用紙サイズを、15*5.5インチの用紙をサーバのプロパティにて新規用紙作成した分で出力しようとしています。 レポートの「ページ設定」を、その15*5.5インチの用紙サイズで保存して、Accessレポートを実行すると、期待する5.5インチでは出力されず、A4サイズで出力されているようなんです。 また、実行後の「ページ設定」ページタグの用紙サイズをみると、15*5.5インチで設定したはずなのに、Letter になっていました。 どうしてそうなるのでしょうか。 ちなみにAccessのコードでは、PrtDevModeプロパティを使用して、PaperSizeメンバに設定しています。けど、値は221です。こんな値は本来ないのではないかと思うのですが、それが原因でしょうか。
- 締切済み
- オフィス系ソフト
- ユーザー定義用紙の用紙番号の取得?
Windows2000上でAccess2000を動かしています。 あらかじめプリンタサーバーのプロパティで定義した用紙(2,3種)を、VBAからレポートの用紙種類を指定する(印刷の都度変える)にはどうしたらいいでしょうか? 定義した用紙の番号を取得できればいいと思うのですが、用紙番号の取得の方法がわかりません。 一生懸命ググってるのですが、見つけることができません。よろしくおねがいします。 (http://www.okweb.ne.jp/kotaeru.php3?q=213927 は見たのですが、問題があったのか参考URLが削除されているので……。)
- ベストアンサー
- オフィス系ソフト
- 用紙設定で作成した用紙の用紙番号をVBで取得するには?
WindowsNT4.0(SP6)上で、VB5(SP3)で作成したアプリケーションからAccess98のレポートをオープンし、オープンしたレポートのページ設定(用紙サイズ)をVBのプログラム内部で設定できるようにしました。 用紙サイズを設定するときは 指定したレポートの PrtDevMode プロパティのメンバ PaperSize に PaperSizeメンバ値(8=A3、9=A4、10=A4 Small、11=A5 等)をセットするとうまく行きました。 しかし問題なのが、Windowsのプリンタ設定のサーバーのプロパティで作成した用紙サイズをレポートの用紙サイズに設定しようと思っても、PaperSizeメンバ値(用紙番号)がわからないため、設定できません。 サーバープロパティで作成した用紙の用紙番号をVBで取得する方法がありましたら是非教えて下さい! ネット上でいろいろ調べているのですが見つかりません。 1つだけ同じ内容のものを見つけたのですが、使用しているソフトが Delphiだったのでダメでした。 どうかよろしくお願いします。m(__)m
- ベストアンサー
- Visual Basic
- VBAの印刷について
VBAでの質問です。 ある処理を施したあとにページ設定をして印刷するプログラムを作成しているのですが、なぜか同じものが2枚出力されてしまいます。 1枚だけ指定して印刷するにはどのようにコードを書けば良いかどなたか教えて下さい。お願いします。 With ActiveSheet.PageSetup 'ページ詳細設定 .PaperSize = xlPaperA4 .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 End With 'ActiveSheet.PrintOut Worksheets(sheetname5).PrintOut ActiveWorkbook.SaveAs Filename:=takiicode & "_" & Format(today, "yyyymmdd") & ".xls" '保存) Workbooks(takiicode & "_" & Format(today, "yyyymmdd") & ".xls").Close SaveChanges:=True '終了
- 締切済み
- オフィス系ソフト
- Excel VBA シェイプの原型のサイズ取得方法
VBAでシェイプの縦横比を%指定で変更したく、下記のように書いています ActiveSheet.Shapes("Picture 208").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.ScaleWidth 2, msoFalse '横2倍の大きさに ところが、ScaleWidthが見ている数値が元の図形のものと違うようです。原因を探すためにシェイプの原型のサイズ(幅や高さの数値)を知りたいのですが、VBAからアクセスできるプロパティやメソッドはあるでしょうか?
- ベストアンサー
- その他(プログラミング・開発)
お礼
imogasiさん、ご回答ありがとうございました。 時間も限られていますし、おっしゃるとおりの方法でやってみようと思います。