找遍以前的贴子都找不到答案。。。。。请帮帮忙 (50分)

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #1

我想把“日新泰富购物中心 ”这几个字打印出来的大小为16号该怎样做呢？找遍以前的贴子都找不到答案，请大家帮帮忙。
procedure Tfrmmain.Button1Click(Sender: TObject);
var
F: TextFile;
S: string;
begin
AssignFile(F, 'lpt1');
Rewrite(F);
writeln(F,' 日新泰富购物中心 ');//想把这几个字打印出来大一些，该怎么办呢
writeln(F,'收银机：'+posid+' '+'交易号'+saleid);
writeln(F,'收银员：'+username+' '+datetimetostr(now));
writeln(F,'-----------------------------------------');
writeln(F,'');
writeln(F,'');
writeln(F,'');
CloseFile(F);
end;

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #2

这个问题好奇怪，我不知道如何回答[][][]

 

M

mantousoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #3

好难，不好办：~）

 

不

不是普通的笨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #4

加打印机的控制代码应该可以吧。

 

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #5

to 不是普通的笨
怎样控制呢？请帮帮忙

 

K

KervenLee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #6

你得找到打印机的控制字符
一般手册上有吧
手册上说明:
^[1B 粗体
^[0B 正常字体
你想打印字符串：
I am a hero.
其中，“am”为粗体，其他部分为正常字体，在Delphi中代码是：
assignfile(f,'lpt1');//"把这个直接输出到操作系统的打印虚拟文件"
s := 'I ' + #27'1B' + 'am' + #27'0B' + ' a hero.';
writeln(f,s);
closefile(f);

 

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #7

我手上没有打印手册，哪位有可不可以告诉我控制字体大小的控制符。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #8

不同打印机的控制指令应该是不一样的吧？

 

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #9

我的是爱普生的，只有一本使用手删，没有其它相关的手册。大家在编POS前台是怎样解决这个问题的呢

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #10

用控制码，什么型号的EPSON? EPSON 300K+? 试试 KervenLee 那些指令看看
要不到EPSON网站找找看

 

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #11

to ZRWeng
是TM-U210，用在POS前台打印小票的。我在EPSON找不到相关的资料

 

I

inforum

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-29

• #12

用TPrinter：
uses printers;
printer.begin
Doc;
with printer.Canvas do
begin
Font.Size := 16;
TextOut(237, 237, ' 日新泰富购物中心 ');
Font.Size := 16;
TextOut(237, 711, '收银机：'+posid+' '+'交易号'+saleid);
...
...
end;
printer.EndDoc;

 

G

Genl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-29

• #13

往TBitMap上画 然后打印图像。。。应该可以 呵呵

 

C

c3411080

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-29

• #14

多人接受答案了。