VBの印刷ダイアログ

WIN98環境のＶＢ6.0で印刷する際にコモンダイアログにてプリンタを切替えようとしてますがうまくできません。過去のログでNTはＡＰＩを使わないと解決できないとありましたがプリンタの切替えはWIN98でもAPIを使わないとできないのでしょうか？
Dim x As Printer
For Each x In Printers
    If x.hDC = Form1.CommonDialog1.hDC Then
        Set Printer = x
        Exit For
    End If
Next
こんなロジックではだめなんでしょうか？

Re: VBの印刷ダイアログ - Uz 2000/10/20 01:02:04

Re[2]: VBの印刷ダイアログ - Uz 2000/10/20 02:04:27

Re[3]: VBの印刷ダイアログ - SATTO 2000/10/20 19:22:33

Re[4]: VBの印刷ダイアログ - Uz 2000/10/23 07:24:19

Re[5]: VBの印刷ダイアログ - SATTO 2000/10/24 00:19:11