Buen dia estimadisimos amigos, me diran que regreso solamente cuando les
necesito y estan en lo cierto, reconozco mi ingratitud, pero ustedes son
maigos siempre muy recordados.
Saben que hace tiempo me aleje de Visual FoxPro querido, incluso hize algo
de Web sobre ASP con motor de Base de datos VFP.
Ahora tengo un problema, el sistema que disené hace años imprimia en
impresoras matriciales y se usaba RawPrint, ahora que se van modernizando,
se compraron impresoras HP LaserJet P1050 y me piden que se les actualice la
impresion.
Lo que me ha venido a la mente es usarla Microsoft Word con el archivo texto
que generaba RawPrint porque diseñarlo de nuevo mucho tiempo, Entonces ese
archivo como jose.txt hasta el momento la puedo abrir e imprimir, pero tengo
un problema que las letras son muy grandes y sale mal para mis ojos.
Alguien ha tenido esa experiencia?
El unico paso que me falta en este codigo es decirle o seleccionar todo el
texto y cambiarle al tamaño 9 y todo resuelto.
En la parte inferior les envio los pasos previos para ese objetivo, ojala me
ayuden..
Saludos
Allaucca Paucar, Juan José
Lima-PERU
***** Begin code sample *****
DECLARE LONG FindWindowA IN WIN32API ;
STRING class, ;
STRING title
DECLARE SetWindowPos IN WIN32API ;
LONG HWND, ;
LONG hwndafter, ;
LONG x, ;
LONG y, ;
LONG cx, ;
LONG cy, ;
LONG flags
oWord = CREATEOBJECT("Word.Application" )
*oWord.Documents.Add
oWord.Documents.Open("Y:Jose.txt")
* Check background printing.
lBackground = oWord.Options.PrintBackground()
IF lBackground
oWord.Options.PrintBackground = .F. && Turn off.
ENDIF
dlg = oWord.Dialogs(88) && Open Print dialog box in Word.
dlg.SHOW
* Get the window handle to Word 97.
wordhandle = 0
DO WHILE wordhandle = 0
* Pass the class name for Word 97 "OpusApp" to FindWindowA
wordhandle = FindWindowA("OpusApp", NULL)
ENDDO
* Variables used in the SetWindowPos API.
swp_nosize = 1
swp_nomove = 2
hwnd_topmost = -1
hwnd_notopmost = -2
* Call SetWindowPos to make the print dialog stay on top.
lretval = 0
lretval = SetWindowPos(wordhandle,hwnd_topmost,;
0,0,0,0,swp_nosize+swp_nomove)
* Turn on background printing if it was on before.
IF lBackground
oWord.Options.Printbackground = !oWord.Options.Printbackground
ENDIF
oWord.Quit
RETURN
***************
* oword = CreateObject("Word.Application")
* oWord.Documents.Open("e:\winper\Juan.txt")
* orange = "3"
* from = "4"
* to = "8"
* oword1= CreateObject("Word.Application")
* WITH oword1
* .Documents.Open("e:\winper\Juan.txt") && Enter appropriate path.
*
* * PrintOut statement using variables
* *.ActiveDocument.PrintOut(0,0,range,"",from,to)
*
* * PrintOut using explicit values
* .ActiveDocument.PrintPreview(0,0,"3","","4","8")
* .ActiveDocument.PrintOut(0,0,"3","","4","8")
*
* ENDWITH
*
* oWord.Visible = .T.
--
Allaucca Paucar, Juan José
(55)01991719277
Lima-PERU
