Hi!
The return of command "oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)" is
correct now.
But not is possible yet print draw box double horizontal for example. I get
ÍÍÍÍÍ
My test with pdfcreator print is.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies := 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
oPrn:CharSet(255)
oPrn:Setfont('Lucida Console',,11,,,,255)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
MSVC, windows XP
/*
* $Id: ChangeLog 12988 2009-11-23 08:14:24Z vszakats $
*/
Best regards,
Itamar M. Lins Jr.
"Viktor Szakáts" <harbour...@syenar.hu>
escreveu na mensagem news:64d3e786-b3d3-475d-b309-dd1812b70...@syenar.hu...
Hi Itamar,
I've accidentally found the problem while
reviewing hbwin code, so if you try now it
should work. I've since realized that the
output looked indeed wrong, but I didn't know
what to look for.
Brgds,
Viktor
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
