FiveTech Software tech support forums

Oscar, In Class TPrinter, function PrintBegin() we search for the printer based on the provided cModel name:      if ( nScan := Ascan( aPrn, { | v | Upper( xModel ) == Upper( v ) } ) ) == 0        ...

... endif   else      ::hDC = PrinterDcFromName( , cModel, )  // cambia aqui !!!   endif Y la función PrintBegin() contenida en printer.prg queda asi: function PrintBegin( cDoc, lUser, lPreview, xModel, lModal, lSelection, cFile )   local ...

Try
oPrn := PrintBegin( cTitle, lUser, lPrintPreview, cPrintModel, lModal, lSelection )
if Empty( oPrn:hDC )
return( .f. ) // Printer was not installed or ready
endif
oPrn:SetCopies( ::nNoCopies )
or
PrnSetCopies( nNoCopies )

... MENUBEGIN, TBITMAP, TBAR, SHELLDEBUG, SHELLEXECUTE, TICON, TFONT, TMULTIGET, OSEND, DBGALERTT, TFOLDER, TPRINTEND, PAGEEND, PAGEBEGIN, PRINTBEGIN, TBUTTON. I am using Ultra Edit Studio's Build configuration, but that really shouldn't make any difference. It has worked in the past. I'm ...

... has fijasdo si te elimina tus archivos emf guardados? adjunto mi pequeño codigo aDir := DIRECTORY(oApp:cDirAudi) // cargo mis archivos .emf oPrn:=PrintBegin("Re-Impresión de Auditoría",.F.,.T.,,.T.) oPrn:SetPage(1) // Tamaño Carta oPrn:SetPortrait() // Orientacion Vertical FOR x := 1 ...

... Static Procedure DRUKUJ(cPRINTER,cOPIS) Local cTYTWYDRUKU:=Ptxt("FAKTURA VAT nr ")+AllTrim(FVAT1->NR_M)+cOPIS Local lPREV:=.F. oPRN:=PrintBegin(cTYTWYDRUKU,.F.,lPREV,IIF(cPRINTER<>NIL,cPRINTER,PrnGetName())) Page FV_CIENIE(@oPRN) FV_NAGLOWEK(@oPRN,cOPIS) //FV_KRESKI(@oPRN) FV_ZAWARTOSC(@oPRN) ...

... or dll's? Try putting this as the first line in your app. You'll need to undo the icon property changes so you can recreate the original problem. PrintBegin( nil, .f., .f.,, .f., .f.) Open your program try the print function again. If you are using any 3rd party lib or dll it may be that calling ...

dobfivewin wrote:Hola estimado

Yo uso PDFCREATOR

al inicio del programa

PdfCreatorCFG( 1 , (SEMIPRSE)->PATH_PDF )

y cuando quiero imprimir:

oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.)

Saludos

David

Hola,
En ese printBegin se le puede pasar el ancho y el largo?

gracias.

Hola estimado Yo uso PDFCREATOR al inicio del programa PdfCreatorCFG( 1 , (SEMIPRSE)->PATH_PDF ) y cuando quiero imprimir: oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.) Saludos David David e pregunto, Se debe instalar el PEDCRREATOR la funcion que usted dice en su ejemplo ...

Hola estimado

Yo uso PDFCREATOR

al inicio del programa

PdfCreatorCFG( 1 , (SEMIPRSE)->PATH_PDF )

y cuando quiero imprimir:

oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.)

Saludos

David

... También he realizado cambios a TPrinter para generar el PDF sin pasar por la vista previa y hacer lo que se desee con el archivo generado. oPrn:=PrintBegin(cName,.F.,lPrv,,.T.,lPdf,cFile) Descargas: http://www.despachoarteaga.com.mx/Print2Pdf.zip // --- Cambios a RPreview para trabajar con Image2PDF// ...

... pBmpWidth() PeekByte() PeekMessage() PeekWord() Pie() PlayMetafile() PokeByte() PokeWord() PolyPolygon() PostMessage() PostQuitMessage() PrintBegin() PrinterEsc() PrinterSetup() PrnBinSource() PrnDuplex() PrnGetName() PrnGetOrientation() PrnGetPort() PrnGetSize() PrnLandscape() PrnOffset() ...

... con los drivers de la epson tm-u950 y lo selecciona perfectamente. o puedes cualquier font del windows pero es mas lento la impresion. oPrn1:=PrintBegin("Cliente",.T.,.f.,"cliente",.T.) .......... retu oPrn1:=PrintBegin("auditora",.T.,.f.,"auditora",.T.) ...

the problem is here : on rpreview if ::oDevice:lPrvModal StopUntil( { || ::lExit } ) endif if on my source insert this command : oPrn:=PrintBegin("Stampa fattura prenotazione "+aDat[6],.F.,lPrv,,.T.) oPrn:lPrvModal:=.T. oPrn:SetPortrait() CursorWait()

... cChar ) EndIf Return Nil METHOD Separator( nPen, nRow ) CLASS TMPrinter If ::lSalida // Else Super:Separator(nPen, nRow) EndIf Return Nil Function PrintBegin( cDoc, lUser, lPreview, xModel, lModal, lSelection ) local aPrn local cText, cDevice local nScan PUBLIC lSalid2 lSalid2 := lSelection If ...