Impresora de red

hola como están mi problema es que quiero imprimir en una impresora de punto en una impresora de red y con el report from xxxx to printer prompt noconsole no tengo problemas el problema es con Preview Window he utilizado varias formas o casos que son

oRep =Createobject("Form")
With oRep
.Caption= "IMPRIMIR FACTURA"
.WindowState= 2
.Show()
ENDWITH

caso 1
*========================================================================
lcPrint=ALLTRIM(SET("PRINTER", 3))
oWsh = CREATEOBJECT('WScript.Network')
Wsh.SetDefaultPrinter(lcPrint)
RELEASE oWsh
REPORT FORM \sqlhis\frm\rfacppal.frx Preview Window (oRep.Name)
*========================================================================

caso 2

lcPrint=ALLTRIM(SET("PRINTER", 3))
objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_Printer Where Name = '&Lcprint'"
objImp = objWMI.ExecQuery(cCadWMI)
For Each objPrinter in objImp
objPrinter.SetDefaultPrinter()
NEXT

REPORT FORM \sqlhis\frm\rfacppal.frx Preview Window (oRep.Name)*

=========================================================================

caso 3

por=GETPRINTER()
REPORT FORM \sqlhis\frm\rfacppal.frx Preview Window (oRep.Name)

no se porque con el preview no reconoce la impresora asignada por defecto en la RED

CUALQUIER AYUDA TE LO AGRADEZCO GRACIAS