.Printersetup( _SCREEN.HWNDto be assign as programmatic. do you have anyu idea? or maybe i store printSetup into variable and store? thanks for your reply
*-- Se déroule lorsqu'on click sur le Print button de preview.02/2004 usedefault = .F. WITH THISFORM.oCrystal.crreport && Or rpt. cOrientation = .PaperOrientation cSize = .PAPERSIZE *-- here Please change quality paper or print on the both side.... .Printersetup( _SCREEN.HWND ) m.numOfPrinters = APRINTERS(printerList) IF m.numOfPrinters > 0 FOR m.i = 1 TO m.numOfPrinters && ALEN( printerList , 1 )* IF printerList[m.i, 1] = .PrinterName .SelectPrinter( 'winspool' , .PrinterName , 'neo1:' ) EXIT ENDIF ENDFOR .PaperOrientation = cOrientation .PAPERSIZE = cSize *!* Dim p As Printer *!* For Each p In Printers *!* If p.DeviceName = crxRpt.PrinterName Then *!* crxRpt.SelectPrinter p.DriverName, p.DeviceName, p.Port *!* Exit For *!* End If *!* Next p *-- Here is a probleme WITH VFP ! *-- All the settings are Lost with SelectPrinter .PrintOut( .T. , 1) ENDIF ENDWITHThank in advance for help craig