プリンターと用紙を名前で指定して印刷するマクロ

　【概要】プリンター名と用紙名を指定して、印刷するVBAコードが知りたいです。 【目的】誰でも簡単に印刷したい。 【依頼背景】現在、例として Application.ActivePrinter = "FUJITSU FMPR5420N on Ne05:" ActiveSheet.PageSetup.PaperSize = 240 というようなマクロを利用してユーザー定義用紙を印刷してますが、パソコンごとに番号の設定が必要ですし、同じパソコンなのに、日が変わるとプリンターのNOが変わってしまったりして、うまくいかなくなるケースがあり不便に感じてます。 NOではなく、プリンター名を指定して印刷する方法は知っているのですが、用紙（ユーザー定義用紙）を名前で指定して印刷する方法が分かりません。