FiveTech Software tech support forums

... see that method box supports: nXoffset or nYottset. Look into printer.prg. METHOD Box( nRow, nCol, nBottom, nRight, oPen ) INLINE ; Rectangle( ::hDCOut, nRow, nCol, nBottom, nRight,; If( oPen != nil, oPen:hPen, 0 ) ) it's not the problem of oPrn:Box, but I think you have an old version of Tprinter ...

I do not see that method box supports: nXoffset or nYottset.
Look into printer.prg.
METHOD Box( nRow, nCol, nBottom, nRight, oPen ) INLINE ;
Rectangle( ::hDCOut, nRow, nCol, nBottom, nRight,;
If( oPen != nil, oPen:hPen, 0 ) )

... )     hMeta := GetEnhMetaFile(aFiles[nFor])PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )oDevice:hDCOut := oDevice:hDC                  oDevice:CmSay( Setup():RgNr_ROW2, Setup():RgNr_COL2, ...

Dear Tim,

I am checking with Rao and Cristobal to implement a

oPrinter:SayRTF()

based on:

REPrintBox5( oRTF:hWnd, If( lPreview, oPrn:hDCOut, oPrn:hDC ), ;
oRTF:IsSelection(), ;
aRTF[ 1 ] + 20, 110, aRTF[ 1 ] + 1000, aRtf[ 2 ] + 990, 0 )

... local nCode := 14 // codigo para el CODEBARQR oCode := TCodeBars():New(600,600,10,10,nCode,cCode,0 ) oCode:Reset() oCode:Build() Drawbitmap( oPrn:hDCOut, oCode:hCodeBar, nRow,nCol) // aca deberia dibujar el QR hace unos dias lo hacia pero ahora no RETU oCode esta es la clase TCodeBars de Garcia ...

... con hbzebra.lib en Harbour para generar códigos de barras tipo QR. Hasta hace unos días funcionaba sin problemas, usando Drawbitmap( oPrn:hDCOut, oCode:hCodeBar, aRect[1],aRect[2]) los insertaba en una rutina oPrn. Se veían e imprimian a la perfección, hace 2 días sin ninguna explicación ...

... VRD IF ::oPrn:hDC = 0 RETURN NIL ENDIF DEFAULT oFont := ::oPrn:oFont DEFAULT nBkMode := 1 DEFAULT nPad := 0 IF oFont != nil oFont:Activate( ::oPrn:hDCOut ) ENDIF // 1,2 transparent or Opaque SetbkMode( ::oPrn:hDCOut, nBkMode ) IF nClrText != NIL #IFDEF __HARBOUR__ SetTextColor( ::oPrn:hDCOut, nClrText ...

... y print02.prg Notas: a) Enlace harupdf usando "REQUEST FWHARU" en cualquier módulo del proyecto b) Cualquier salida que use hDC/hDCOut de TPrinter no se guarda en pdf. c) HaruPDF no admite texto unicode. Los programas que usan texto unicode no deben configurar TPrinter():lUseHaruPdf ...

... and print02.prg Notes: a) Link harupdf using "REQUEST FWHARU" in any module of the project b) Any output using TPrinter's hDC/hDCOut is not saved to pdf. c) HaruPDF does not support Unicode text. Programs using Unicode text should not set TPrinter():lUseHaruPdf to .t. * EasyReport ...

We should not use hDCOut

If we use the new syntax we do not have to use any of these premitives.
Please wait for my posting.
Please be patient.

Meanwhile, try these samples:

pdfharu1.prg, pdfharu2.prg, print01.prg, print02.prg

Mr. Rao, now is further error:

Error description: Error BASE/1004 Message not found: FWPDF:HDCOUT

... https://i.postimg.cc/7P9GBTBF/errore-fw-txt.png in fact, a number was printed in the blue spot on source I made : //FW_SayText( ::hDCOut, cText, aRect, cAlign, oFont, nClrText, nClrBack ) oBtn[1]:bPainted := { |hDC| FW_DrawImage( hDC, ".\bitmaps\ombrellone.bmp", { 2, ...

... also on printer ? I made @10,10 SAYBARCODE oBC TEXT cCodice ; TYPE GiveMeType(nBCodeType) SIZE 500,50 ; COLOR nColor,CLR_WHITE ; PIXEL of oPrn:hDcOut any solution ? I sent you the test

... that class every time you have an update. Here is what I suggested: line 614: Add: , nOldColor := GetTextColor( ) line 659: Add: SetTextColor( ::hDCOut, nOldColor ) I was surprised this was not considered on this release since the suggestion was provided several weeks ago, and from my perspective, ...

...  PRINT oPrn PREVIEW   oPrn:SetLandScape()   PAGE      oBarCode := FWER_BarCode():New( oPrn:hDCOut, cText, 700,100, 3000, 400, 3 )      WITH OBJECT oBarCode         :nBCodeType    := 3  // CODE 128         :nPinWidth     := 10         :ShowBarCode()  ...