انتخاب پرينتر

[alisabet]

سلام
من دو تا پرينتر دارم و خروجي پرينت گزارشات اكسل را بسته به اندازه كاغذ به يكي از اين دو پرينتر ارسال مي كنم و هردفعه بايد هنگام پرينت بصورت دستي يكي از دو پرينتر را انتخاب كنم حال سوال اينست كه چگونه بوسيله كدنويسي در ماكرو ميتوانم يكي از پرينتر ها در انتخاب كنم تا خروجي چاپ بدون اينكه سوال كند به پرينتر مورد نظر ارسال شود منظورم اينست كه خودم قبلاً در دستورات ماكرو پرينتر مورد نظر را انتخاب كرده باشم

[daghyad]

RE: انتخاب پرينتر

سلام ساده است با ضبط یک ماکرو هم می تونی این کارو انجام بدی فایلت را بذاری و توضیحات لازم را بدی راهنمایی ات می کنم

[mohammad_farpour]

RE: انتخاب پرينتر

[align=justify]همون طور که دوست عزیزمون گفتن شما می میتونی خیلی راحت این کارو با ضبط ماکرو انجام بدی به این صورت که ابتدا دکمه ضبط ماکرو رو انتخاب کن بعد عملیات پرینت برای پرینتر 1 رو انجام بده و ضبط رو متوقف کن. یکبار دیگه همین مراحل را برای پرینتر 2 انجام بده. الان شما دو تا ماکرو داری که می تونی اونارو به دو تا شیپ با سلیقه خودت Assing کنی و ازشون استفاده کنی.[/align]

[Javid Mokhtari]

RE: انتخاب پرينتر

با سلام.
برای انتخاب پرینتر از کد زیر هم می تونید استفاده کنید:
Application.Dialogs(xlDialogPrinterSetup).Show
و برای اینکه ببینید چه پرینتری در حالت انتخاب است،از کد زیر می تونید استفاده کنید:
MsgBox Application.ActivePrinter