Dim Msg, Style, Response, MyString
    Msg = sData '定义消息文本
    Style = vbYesNo + vbQuestion + vbDefaultButton1 ' 定义按钮
    Response = MsgBox(Msg, Style)
    If Response = vbYes Then ' 用户按下“是”
    Printer.FontName = "黑体"
    Printer.FontSize = 12
    Printer.ScaleMode = vbTwips
    Printer.Zoom = 100
    Printer.Print Msg ' 完成某操作
    Printer.EndDoc
    Else ' 用户按下“否”
    MyString = "No" ' 完成某操作
    End If

这段程序会弹出一个需要打印的窗口，如有其它程序时该窗口会被盖住，如何让它在所有程序前面显示。。。谢谢。。

没看懂。。。不太会用。。。能不能给个完整代码。。。谢谢！！！
直接测试好像也不行？？？

直接测试可以了。。。

Dim Msg, Style, Title, Response, MyString
    Msg = sData '定义消息文本
    Style = vbYesNo + vbQuestion + vbDefaultButton1 + 4096 ' 定义按钮
    Title = "打印"
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then ' 用户按下“是”
    Printer.FontName = "黑体"
    Printer.FontSize = 12
    Printer.ScaleMode = vbTwips
    Printer.Zoom = 100
    Printer.Print Msg ' 完成某操作
    Printer.EndDoc
    Else ' 用户按下“否”
    MyString = "No" ' 完成某操作
    End If

这样用后是在最前的了，但为什么不是默认选中该窗口的？？？
还要用鼠标选中，才能确定打印？？？

谢谢了。。。