Con
.HomeKey(6)
vas al principio, y con
.EndKey(6, 1)
seleccionás hasta el final.
También podés usar Selection.WholeStory, pero eso fijate bien cómo se usa
porque yo no lo probé.
(En todo caso, abrí un documento, grabá una macro haciendo lo que querés hacer
y después espiá el código que generó la macro, ahí está todo)
Saludos.
----- Original Message -----
From: Juan José Allaucca Paucar
To: GUFA List Member
Sent: Friday, December 18, 2009 11:45 PM
Subject: [GUFA] Imprimir en Microsoft Word desde Visual Foxpro
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
