Hi

That is what I am beginning to believe also so now I need to find out how to change the Windows default printer.

Simon

>My guess is that your ActiveX control uses Windows default printer not VFP printer.
>
>>
>>Here is my modified test code for printing the RTF files. The printer settings are being set because I check them by looking at the VFP page setup dialog. However the ActiveX control ignores them. The ActiveX is supposed to use Windows print settings. So I assumed that when VFP sets the printer environment it is setting the Windows printer environment but perhaps not. When I open the page setup dialog using the ActiveX control it does not contain the same information as that of VFP.
>>
>>Regards,
>>Simon White
>>
>>
>>

>>*
>>* Test printing RTF files
>>*
>>LParameters tcFile
>>  Local lo
>>  lo=CreateObject("conGPEditor")
>>  lo.Open(tcFile)
>>   =SetPrinterDevMode(goApp.oPrintParam)
>>
>>*
>>* Print the document using the ActiveX control
>>* but it ignores the printer settings!!!!
>>*
>>  lo.Print(goApp.oPrintParam.Printer)
>>
>>*
>>* Now I open a document and print it from VFP9
>>* and it prints as expected.  If I check the
>>* page setup dialog it contains the proper settings
>>*
>>
>>  Modify Command test4
>>
>>Return
>>Procedure SetPrinterDevMode
>>   Lparameters toParam
>>   Local lcRpt,ln1,ln2,ln3,ln4,ln5,ln6
>>   lcRpt=Sys(2015)
>>   =PushWorkArea()
>>   Select 0
>>   Create Cursor Temp (Test C(10))
>>   Select 0
>>   Create Report (gcTmp+lcRpt+".frx") From Temp
>>   Use In Select("Temp")
>>   Use (gcTmp+lcRpt+".frx") Exclu Alias UPDevMod
>>   Set Printer to (toParam.Printer)
>>   Sys(1037,2)
>>   ln1=At("ORIENTATION",UPDevMod.Expr)
>>   ln2=At("PAPERSIZE",UPDevMod.Expr)
>>   Replace Next 1 UPDevMod.Expr With Stuff(UPDevMod.Expr,ln1,ln2-ln1,"ORIENTATION=1"+Chr(13)+Chr(10))
>>   ln2=At("PAPERSIZE",UPDevMod.Expr)
>>   ln3=At("ASCII",UPDevMod.Expr)
>>   Replace Next 1 UPDevMod.Expr With Stuff(UPDevMod.Expr,ln2,ln3-ln2,"PAPERSIZE="+Transform(GetPaperSize(toParam.PaperSize))+Chr(13)+Chr(10))
>>   ln4=At("COPIES",UPDevMod.Expr)
>>   ln5=At("DEFAULTSOURCE",UPDevMod.Expr)
>>   Replace Next 1 UPDevMod.Expr With Stuff(UPDevMod.Expr,ln4,ln5-ln4,"COPIES=2"+Chr(13)+Chr(10))
>>   If toParam.Tray<>"-1"
>>      ln5=At("DEFAULTSOURCE",UPDevMod.Expr)
>>      ln6=At("PRINTQUALITY",UPDevMod.Expr)
>>      Replace Next 1 UPDevMod.Expr With Stuff(UPDevMod.Expr,ln5,ln6-ln5,"DEFAULTSOURCE="+toParam.Tray+Chr(13)+Chr(10))
>>   EndIf
>>   Sys(1037,3)
>>   Use In Select("UPDevMod")
>>   =PopWorkArea()
>>
>>EndProc
>>

>>
>>
>>