No encuentro solucion a esto, mi problema es...
Tengo un formulario con :
un OleControl RTF (RtfEditor),
un OleControl CommondDialog (CD1)
un commandButton (cmdImprimir)
y lo que deseo es imprimir el contenido del OleControl RTF, presentando primero las opciones de impresion (CommondDialog).
El siguiente código, no me da ningun mensaje de error, pero tampoco imprime.
****
Código del método : ThisForm.cmdImprimir.Click()
#define cdlPDReturnDC 0x100
#define cdlPDNoPageNums 0x8
#define cdlPDAllPages 0x0
#define cdlPDSelection 0x1
WITH Thisform
.CD1.Flags = cdlPDReturnDC && + cdlPDNoPageNums
.CD1.Flags = .CD1.Flags + IIF( .RtfEditor.SelLength = 0,;
cdlPDAllPages, cdlPDSeleccion)
.CD1.ShowPrinter
.RtfEditor.SelPrint( .CD1.hDC )
ENDWITH
RETU
**
Alguien puede decirme por que no imprime? me falta hacer algo?
a quien lea esto gracias.. a quien responda.. muchas, muchisimas
gracias.
Es urgente.
Edgar Velásquez/.
xevp@hotmail.com