Search found 26 matches: cdocument

Return to advanced search

Re: Calculate total pages

... + cUniqueID,    , .F. , Setup():PDFPrinter,  .F.    , .F. )  StartDoc(oDevice:hDC, oDevice:cDocument )   StartPage( oDevice:hDC )     hMeta := GetEnhMetaFile(aFiles[nFor])PlayEnhMetaFile( ...
by Otto
Fri Nov 24, 2023 6:24 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Calculate total pages
Replies: 32
Views: 5508

Re: Preview and save to pdf at the same time

I made this changes in rpreview.prg, in: METHOD PrintPage() CLASS TPreview .... if ! lCancel MsgRun( ::oDevice:cDocument, "Imprimiendo Reporte",; { || ::PrintPrv( nil, nOption, nFirst, nLast ) } ) // daniel 2016-07-29 * ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo ...
by puenteda
Mon Dec 31, 2018 7:48 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Preview and save to pdf at the same time
Replies: 1
Views: 827

Re: Control Botón de Impresión

... ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( oPageIni:Disable(), oPageEnd:Disable(), .T. ) else lCancel := .f. endif if ! lCancel MsgRun( ::oDevice:cDocument, "Printing Report",; { || ::PrintPrv( nil, nOption, nFirst, nLast ) } ) endif ///puedes colocar lo que quieras hacer en mi caso ...
by luisduque
Thu Sep 10, 2015 7:24 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Control Botón de Impresión
Replies: 8
Views: 1423

bug Fivewin printer.prg

Hola, En source/printer.prg hay que usar FWStrings en : METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter MsgStop( "There are no printers installed!" + CRLF + ; "Please exit this application and install ...
by MOISES
Thu Feb 26, 2015 6:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: bug Fivewin printer.prg
Replies: 1
Views: 755

Rpreview.prg

...  oDevice:hDC = PrinterDcFromName( , oDevice:cModel, )      //? oDevice:hDC  StartDoc( oDevice:hDC, oDevice:cDocument )
by Otto
Mon Jan 05, 2015 4:21 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Rpreview.prg
Replies: 7
Views: 1284

Re: app crash on ShellExecute()

... source code, sometimes nothing happens. Richard's solution seems to work but it opens ie, which I'd like to avoid. Reinaldo. Please note that if cDocument contains spaces you have to enclose it in quotes (just like you have to do on the console). EMG
by Enrico Maria Giordano
Fri Jan 06, 2012 4:52 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: app crash on ShellExecute()
Replies: 10
Views: 3135

Re: Solicito un ejemplo de Tprinter

... de Pollitos" PREVIEW Else PRINT oPrn NAME "Impresión de Pollitos" End If Empty( oPrn:hDC ) Return NIL End If !Empty( cPDF ) oPrn:cDocument := AllTrim( cPDF ) End DEFINE FONT oFontC NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn DEFINE FONT oFontD NAME "Tahoma" SIZE ...
by jll-fwh
Tue Mar 02, 2010 2:41 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Solicito un ejemplo de Tprinter
Replies: 10
Views: 2569

Re: preview alpha 2

... + " not found, imposible to continue",; "FiveWin Printing Error" ) return nil endif if ::oDevice != nil cTitle = ::oDevice:cDocument endif if ::oWndMain != nil oIcon = ::oWndMain:oIcon else DEFINE ICON oIcon RESOURCE "Print" endif DEFINE FONT ::oFont NAME GetSysFont() ...
by dobfivewin
Thu Jan 14, 2010 10:08 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: preview alpha 2
Replies: 2
Views: 2030

Re: generador interactivo de listados clase TREPORT

... que en el caso de image2pdf FUNCTION SavePDF(oDevice) LOCAL aFiles:={}, cImgFileName aFiles:=oDevice:aMeta cPdfFileName:="Temp\"+oDevice:cDocument+".Pdf" WaitRun("convert "+GetEnv("Temp")+"\*.emf "+Alltrim(cPdfFileName),0) CursorArrow() IF !File(cPdfFileName) ...
by ManolinM2008
Sat Dec 05, 2009 11:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: generador interactivo de listados clase TREPORT
Replies: 22
Views: 4874

Re: generador interactivo de listados clase TREPORT

... SavePDF(oDevice) LOCAL aFiles:={}, cImgFileName aFiles:=oDevice:aMeta MsgInfo(GetEnv("Temp")) cPdfFileName:="Temp\"+oDevice:cDocument+".Pdf" FOR nI:=1 TO Len(aFiles) // Build the pages using the array of temp files CursorWait() cImgFilename:=aFiles[nI] // MsgInfo("Imagen ...
by ManolinM2008
Sat Dec 05, 2009 3:28 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: generador interactivo de listados clase TREPORT
Replies: 22
Views: 4874

Re: GetPrintDC()

... FONT oFont NAME GetSysFont() SIZE 0,-12 DEFINE CURSOR oCursor RESOURCE "Lupa" DEFINE WINDOW oWnd FROM 0, 0 TO 24, 80 ; TITLE oDevice:cDocument ; COLOR CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL // So IsAppThemed() is properly detected as the window is already built oWnd:SetMenu( ...
by jbrita
Tue Nov 24, 2009 11:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: GetPrintDC()
Replies: 4
Views: 2704

Re: using dotmatrix printer

... > ??" More Stuff" > Set Printer To // closes the file > > Function SendItRaw(cFile,nPrinterType) > Local cDocument := "From BCDS32 " + alltrim(cFile) + " in Direct Print > (RAW) Format..." > Local nRv := 0 > nRv := WinPrintRaw(IIF( ...
by James Bott
Thu Jun 11, 2009 3:57 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: using dotmatrix printer
Replies: 1
Views: 575

Re: Cerrar Previsualizacion de Reportes

El equivalente para la clase Print seria oPrn:cDocument

aadd( aRep, oPrn:cDocument )
by Daniel Garcia-Gil
Thu Apr 02, 2009 12:25 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Cerrar Previsualizacion de Reportes
Replies: 16
Views: 2074

PARA ANTONIO LINARES

... EndDoc(::hDC) endif else //** FranciscoA //Para guardar el .EMF recien creado, o que no lo borre cuando es cargado desde disco. IF UPPER(::cDocument) <> "OLDMETAFILE" .and. ::lMeta .and. len(::aMeta) > 0 if lSaveMetaF .and. MsgNoYes("Desea guardar fichero(s) metafile(s) (.EMF)?","Elija ...
by FranciscoA
Thu Oct 30, 2008 10:37 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Guardar y abrir Metafile SOLUCIONADO
Replies: 8
Views: 3118

... endif DEFINE FONT oFont NAME GetSysFont() SIZE 0,-12 DEFINE CURSOR oCursor RESOURCE "Lupa" DEFINE WINDOW oWnd FROM 0, 0 TO 24, 80 ; TITLE oDevice:cDocument ; COLOR CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL // So IsAppThemed() is properly detected as the window is already built oWnd:SetMenu( ...
by Manuel Valdenebro
Thu Feb 28, 2008 4:30 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: RPREVIEW modificada por Manuel Valdenebro ?
Replies: 8
Views: 3361
Next

Return to advanced search