Q&A
早速のご回答ありがとうございます。
環境が全く同じでないと初期状態になってしまうんですね・・・
これから教えてもらったVBA制御を試してみます。
成果が出ましたらまた報告いたします。
Accessにおいて、レポート印刷時に設定したページ設定が他のパソコンに移したときに引き継がれません。
AとBという２つのパソコンを例にしてご説明します。
特殊な用紙サイズのため、AのパソコンとBのパソコンで「デバイスとプリンタ」→「プリントサーバープロパティ」から新しい用紙サイズを作成しました。
AのパソコンでAccessのシステムを開発し、レポートの「ページ設定」から余白の設定、用紙サイズ、用紙トレイ、プリンタを指定した状態で保存しました。
accdbファイルをBのパソコンに移すと、レポートのページ設定がA4に、用紙トレイは手差しに変わっています。プリンタは指定された状態でした。
PCはWindows10 64bit、officeは2013（Bにあたるパソコンはランタイム版）です。
プリンタはVP-2300、自作の用紙サイズは幅：25.40cm、高さ：12.70cm、名前：10x5 ｲﾝﾁ です。
原因がおわかりの方がいらっしゃいましたら教えてくださいませ。
よろしくお願いいたします。
以下追記：
回答者様のすすめでVBAでプリンターオブジェクトを制御する方法を試みています。
以下のコードでプリンターオブジェクトを取得したところ以下のような結果になりました。
VBA
1 Dim Rpt As Object, Prt As Object, str As String 2 Set Rpt = Reports(Me.Name) 3 Set Prt = Rpt.Printer 4 str = "" 5 str = "BottomMargin" & ":" & Prt.BottomMargin & vbNewLine 6 str = str & "ColorMode" & ":" & Prt.ColorMode & vbNewLine 7 str = str & "Copies" & ":" & Prt.Copies & vbNewLine 8 str = str & "DataOnly" & ":" & Prt.DataOnly & vbNewLine 9 str = str & "DefaultSize" & ":" & Prt.DefaultSize & vbNewLine 10 str = str & "DeviceName" & ":" & Prt.DeviceName & vbNewLine 11 str = str & "DriverName" & ":" & Prt.DriverName & vbNewLine 12 str = str & "Duplex" & ":" & Prt.Duplex & vbNewLine 13 str = str & "ItemLayout" & ":" & Prt.ItemLayout & vbNewLine 14 str = str & "ItemsAcross" & ":" & Prt.ItemsAcross & vbNewLine 15 str = str & "ItemSizeHeight" & ":" & Prt.ItemSizeHeight & vbNewLine 16 str = str & "ItemSizeWidth" & ":" & Prt.ItemSizeWidth & vbNewLine 17 str = str & "LeftMargin" & ":" & Prt.LeftMargin & vbNewLine 18 str = str & "Orientation" & ":" & Prt.Orientation & vbNewLine 19 str = str & "PaperBin" & ":" & Prt.PaperBin & vbNewLine 20 str = str & "PaperSize" & ":" & Prt.PaperSize & vbNewLine 21 str = str & "Port" & ":" & Prt.Port & vbNewLine 22 str = str & "PrintQuality" & ":" & Prt.PrintQuality & vbNewLine 23 str = str & "RightMargin" & ":" & Prt.RightMargin & vbNewLine 24 str = str & "RowSpacing" & ":" & Prt.RowSpacing & vbNewLine 25 str = str & "TopMargin" & ":" & Prt.TopMargin 26 MsgBox str
Aのパソコンの結果
BottomMargin:567
ColorMode:1
Copies:1
DataOnly:False
DefaultSize:True
DeviceName:EPSON VP-2300 ESC/P
DriverName:winspool
Duplex:1
ItemLayout:1953
ItemsAcross:1
ItemSizeHeight:485
ItemSizeWidth:11704
LeftMargin:567
Orientation:1
PaperBin:2003
PaperSize:204
Port:LPT1:
PrintQuality:180
RightMargin:567
RowSpacing:0
TopMargin:567
Bのパソコンの結果
PaperSize:153
ほかは一緒
独自に作成した用紙サイズの管理番号とでも言うのでしょうか、PaperSizeに指定する値がPCごとに変わるようです。
PaperSizeを設定した用紙サイズの名前で指定する方法、もしくはこの管理番号を手動で変更する方法などはありますでしょうか？
回答2件
0
ベストアンサー
「ページ設定」の「ページ」で「その他のプリンタ」を選択して「プリンターの設定」ボタンをクリックして「プリンタ名」を指定していますか。
両者のPCで同じプリンタ名のプリンタが存在すれば設定は引き継がれるはずです。
「通常使うプリンタ」だと引き継がれない場合があったと思います。
ユーザ定義ページサイズを各パソコンで設定しているとのことですが、ユーザ定義ページサイズは1種類だけですか、それとも複数ありますか。また、複数の場合は、登録順は各パソコンで同じでしょうか。当方でも複数のユーザ定義ページサイズを設定していますが、問題なく設定を受け継いでいます。
投稿2019/02/26 07:04
編集2019/02/26 08:02
総合スコア34343
0
accessはレポート毎にプリンター情報が記録されています。
環境が全く同じでないと、通常使うプリンタで初期状態になります。
プリンター名をPC毎に同じになるように設定してそのプリンターを指定するか、
VBAでプリンター オブジェクト制御するしかなかったかと思います。
プリンタの用紙を設定
因みに、
特殊な用紙サイズのため、AのパソコンとBのパソコンで「デバイスとプリンタ」→「プリントサーバープロパティ」から新しい用紙サイズを作成しました。
これPC毎に設定していないんじゃないでしょうか。
独自に作成した用紙の情報は引き継がれませんよ。
投稿2019/02/26 06:04
編集2019/02/26 08:14
総合スコア25419
追記しました。
追記読みました。ありがとうございます。
A、BのPCごとに同じ設定、同じ名前でユーザー定義サイズの用紙情報を設定してありますがだめなようです。
今、VBAでプリンターオブジェクトを設定する方法を試みています。
結果はこの質問に編集で追記いたします。
用紙名は完全に一致していますか？
「9x6.5 cm」という微妙に間違えやすい用紙名のため、ExcelのIF関数をつかって同じかどうかチェックしましたが一致していました。
質問を追記しました。
では、追加した状態での用紙の数とか並びはどうでしょう。
「プリントサーバーのプロパティ」の用紙サイズの数でしょうか？
確認しましたが、AとBのパソコンで数も並びも微妙に違います。
Aでは「9x6.5 ｲﾝﾁ」が7番目に対し、Bでは8番目だったりします。
参考になりそうなリンクを追記しました。
AとBのパソコン両方のユーザー定義サイズを一度すべて削除し、同じ順番で再登録しましたら、うまくいきました。ありがとうございました。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/02/26 07:24
2019/02/26 08:14
2019/02/26 08:23
2019/02/26 08:26
2019/02/27 05:26