imprimir texto enriquecido (.rtf) desde vfox 6
puedo generar un texto con todos los chiches de word, como negritas, colores en un campo memo, pero no se como imprimirlo, si me pueden guiar, desded ya muchas gracias
Utiliza este código
DECLARE INTEGER CreateDC IN WIN32API ;
INTEGER lpszDriver, ;
STRING @ lpszDevice, ;
INTEGER lpszOutput, ;
INTEGER lpInitData
DECLARE INTEGER DeleteDC IN WIN32API INTEGER hDC
Local lcPrinter
lcPrinter = GETPRINTER()
nHDC = CreateDC(0,lcPrinter,0,0) && Get the printer handle
thisform.RTFControl1.SelPrint(nHDC)
=DeleteDC(nHDC)
DECLARE INTEGER CreateDC IN WIN32API ;
INTEGER lpszDriver, ;
STRING @ lpszDevice, ;
INTEGER lpszOutput, ;
INTEGER lpInitData
DECLARE INTEGER DeleteDC IN WIN32API INTEGER hDC
Local lcPrinter
lcPrinter = GETPRINTER()
nHDC = CreateDC(0,lcPrinter,0,0) && Get the printer handle
thisform.RTFControl1.SelPrint(nHDC)
=DeleteDC(nHDC)
