Set Default Printer dengan Visual Basic

Procedure untuk mengubah printer default di vb....
sangat sangat diperlukan jika memakai crystal report, dan printer default di komputer adalah generic (hal ini menyebabkan font di report yang seharusnya bukan generic jadi
rusak...)..
Jadi sebelum load report ubah dulu printer default di komputer, dan setelah selesai jangan lupa diubah balik kalau diperlukan.

Public Sub ChangePrinterDefault(PrinterName)
Dim w As New WshNetwork
w.SetDefaultPrinter (PrinterName)
Set w = Nothing
End Sub