HMG CONSOLE APPLICATION ARE NOT PRINTING IN WINDOWS-8 64BIT
Posted: Thu Oct 10, 2013 5:10 am
I converted my clipper console application to HMG console application and build application file with HMG-IDE.
I am facing following problems. Kindly help me for following problems.
1. I used win_printfileraw(win_printergetdefault(),'report.txt')
to print any report in dot matrix printer. It is working in Windows-XP perfectly. but not printing in Windows 8 64-bit.
2. I used HB_GTINFO.CH to make full screen, colour effect and font name & size. which are not working in any Window (os)
How can I start printing in Windows-8 64 bit. Beside this Kindly also tell me how can I give print on Laser printer because it is not printing on Laser Printer on both windows. I want to say you that I have ESC/P codes CHR(15) CHR(18) etc. Is they are making problem on Laser Printer. Please help me.
I have used following lines in coding
REQUEST HB_GT_WIN_DEFAULT
#include "hbgtinfo.ch"
#define RGB(r,g,b) (r+(g*256)+(b*256*256))
**************
PROCEDURE MAIN
**************
LOCAL aPalette:=hb_gtinfo(HB_GTI_PALETTE)
SETMODE(25,80)
USE COLOR SHARED
STORE BACKCOLOR1 TO BCOL1
STORE BACKCOLOR2 TO BCOL2
STORE BACKCOLOR3 TO BCOL3
STORE FORCOLOR1 TO FCOL1
STORE FORCOLOR2 TO FCOL2
STORE FORCOLOR3 TO FCOL3
CLOSE ALL
aPalette[1] := RGB(BCOL1,BCOL2,BCOL3)
aPalette[8] := RGB(FCOL1,FCOL2,FCOL3)
HB_GTINFO(HB_GTI_FONTSIZE,24)
HB_GTINFO(HB_GTI_FONTWIDTH,12)
HB_GTINFO(HB_GTI_FONTNAME,'Lucida Console')
HB_GTINFO(HB_GTI_WINTITLE,'Dua Softwares')
HB_GTINFO(HB_GTI_ISFULLSCREEN,.T.)
HB_GTINFO(HB_GTI_PALETTE,aPalette)
HB_GTINFO(HB_GTI_ISFULLSCREEN,.T.)
HB_GTINFO(HB_GTI_ALTENTER,.T.)
Kindly help me.
REGARDS,
MANOJ DUA
I am facing following problems. Kindly help me for following problems.
1. I used win_printfileraw(win_printergetdefault(),'report.txt')
to print any report in dot matrix printer. It is working in Windows-XP perfectly. but not printing in Windows 8 64-bit.
2. I used HB_GTINFO.CH to make full screen, colour effect and font name & size. which are not working in any Window (os)
How can I start printing in Windows-8 64 bit. Beside this Kindly also tell me how can I give print on Laser printer because it is not printing on Laser Printer on both windows. I want to say you that I have ESC/P codes CHR(15) CHR(18) etc. Is they are making problem on Laser Printer. Please help me.
I have used following lines in coding
REQUEST HB_GT_WIN_DEFAULT
#include "hbgtinfo.ch"
#define RGB(r,g,b) (r+(g*256)+(b*256*256))
**************
PROCEDURE MAIN
**************
LOCAL aPalette:=hb_gtinfo(HB_GTI_PALETTE)
SETMODE(25,80)
USE COLOR SHARED
STORE BACKCOLOR1 TO BCOL1
STORE BACKCOLOR2 TO BCOL2
STORE BACKCOLOR3 TO BCOL3
STORE FORCOLOR1 TO FCOL1
STORE FORCOLOR2 TO FCOL2
STORE FORCOLOR3 TO FCOL3
CLOSE ALL
aPalette[1] := RGB(BCOL1,BCOL2,BCOL3)
aPalette[8] := RGB(FCOL1,FCOL2,FCOL3)
HB_GTINFO(HB_GTI_FONTSIZE,24)
HB_GTINFO(HB_GTI_FONTWIDTH,12)
HB_GTINFO(HB_GTI_FONTNAME,'Lucida Console')
HB_GTINFO(HB_GTI_WINTITLE,'Dua Softwares')
HB_GTINFO(HB_GTI_ISFULLSCREEN,.T.)
HB_GTINFO(HB_GTI_PALETTE,aPalette)
HB_GTINFO(HB_GTI_ISFULLSCREEN,.T.)
HB_GTINFO(HB_GTI_ALTENTER,.T.)
Kindly help me.
REGARDS,
MANOJ DUA