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
>
>
>
>
--sb--