Application.Dialogs 焦点问题

sj15627581616

如 Application.Dialogs(9).Show 激活对话框后，必须处理完对话框后才能继续执行后面的代码，如我模拟操作处理对话款就无法执行，有没有大佬处理过这类问题的？或者有什么其他的可替代方案！

LIUZHU

你在代码中使用这句代码的目的是什么？是否可以替代该对话框？

sj15627581616

LIUZHU 发表于 2022-12-15 09:49
你在代码中使用这句代码的目的是什么？是否可以替代该对话框？

打开打印机的设置界面 然后修改打印机参数，有代码传参一套处理到底最好，不过好像不同的打印机不同，处理的内容大不相同，所以我的想法是，设定好对应打印机后，调出打印机设置对话框，然后模拟手动来设置参数，现在就是因为这个对话框不处理，程序不会继续向下跑，后面的模拟手动就没有意义了

lss001

sj15627581616 发表于 2022-12-15 10:37
打开打印机的设置界面 然后修改打印机参数，有代码传参一套处理到底最好，不过好像不同的打印机不同，处 ...

https://learn.microsoft.com/zh-cn/windows-server/administration/windows-commands/rundll32-printui?source=recommendations

Sub 打印机()

p = """Microsoft Print to PDF""" '指定打印机名称
Shell "rundll32 printui,PrintUIEntry /p /n " & p, 4

'打印机属性/p,打印首选项/e,
'设置系统默认打印机/y,其它请参考以上网址

End Sub

perfect131

用vba 创建 vbs，延迟执行vbs 就可以跳过
参考 7 楼CompleteUploadThread：https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1618542&pid=10913917
参考：https://club.excelhome.net/forum ... 53&pid=11069754