Excel 2016
Posted: Wed Jul 31, 2019 8:19 am
Hi
#include "fivewin.ch"
#include "FileXLS.ch"
#include "XLSForm.ch"
#include "XLSError.ch"
#define BORDER_UP nOr( BORDER_TOP )
#define BORDER_DOWN nOr( BORDER_BOTTOM )
#DEFINE TRUE .T.
#DEFINE FALSE .L.
LOCAL nFormat,nFormat2,nFormat3,nFont1,nFont2,nFont3,oXLS
local f
local i
DEFINE XLS FORMAT nFormat PICTURE '#,##0.00_);[Red](#,##0.00)'
DEFINE XLS FORMAT nFormat1 PICTURE '0'
DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD
DEFINE XLS FONT nFont3 NAME "Times New Roman" HEIGHT 10 BOLD
DEFINE XLS FONT nFont4 NAME "Times New Roman" HEIGHT 10
@ 1,1 XLS SAY "ABC" OF oXls FONT nFont1
If output to Excel 2010 or Excel 2013, it is OK.
But if output to Excel 2016, it say not enough memory.
Regards
AC Woo
Using FWH + bcc582
#include "fivewin.ch"
#include "FileXLS.ch"
#include "XLSForm.ch"
#include "XLSError.ch"
#define BORDER_UP nOr( BORDER_TOP )
#define BORDER_DOWN nOr( BORDER_BOTTOM )
#DEFINE TRUE .T.
#DEFINE FALSE .L.
LOCAL nFormat,nFormat2,nFormat3,nFont1,nFont2,nFont3,oXLS
local f
local i
DEFINE XLS FORMAT nFormat PICTURE '#,##0.00_);[Red](#,##0.00)'
DEFINE XLS FORMAT nFormat1 PICTURE '0'
DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD
DEFINE XLS FONT nFont3 NAME "Times New Roman" HEIGHT 10 BOLD
DEFINE XLS FONT nFont4 NAME "Times New Roman" HEIGHT 10
@ 1,1 XLS SAY "ABC" OF oXls FONT nFont1
If output to Excel 2010 or Excel 2013, it is OK.
But if output to Excel 2016, it say not enough memory.
Regards
AC Woo
Using FWH + bcc582