win32::printer and text formatting

[diavolo-verde]

Hello,

I use Win32:rinter for my prints. I print just simple text, i.e.

$rowHeight = $dc->Write($description, $x, $y);
$x += 45;
$rowHeight = $dc->Write($arrivalDate, $x, $y);
$x += 20;
$rowHeight = $dc->Write($price, $x, $y);
$y += $rowHeight;

I'd like to print the currency right formatted:
204,00
12,10

I didn't undersand very much the win32:rinter manual on CPAN. Would
anyone give me an example how to do it?

Thanks,

Davide

 

[Ben Morrow]

Hello,

I use Win32:rinter for my prints. I print just simple text, i.e.

$rowHeight = $dc->Write($description, $x, $y);
$x += 45;
$rowHeight = $dc->Write($arrivalDate, $x, $y);
$x += 20;
$rowHeight = $dc->Write($price, $x, $y);
$y += $rowHeight;

I'd like to print the currency right formatted:
204,00
12,10

I didn't undersand very much the win32:rinter manual on CPAN. Would
anyone give me an example how to do it?

You need to use either sprintf or POSIX::localeconv or I18N::Langinfo;
or possibly there is a CPAN module to make this easier (the POSIX locale
interface is rather smelly).

Ben

 

[diavolo-verde]

Ben Morrow ha scritto:

You need to use either sprintf or POSIX::localeconv or I18N::Langinfo;
or possibly there is a CPAN module to make this easier (the POSIX locale
interface is rather smelly).

Thanks Ben, I don't understand. I thought I could use
win32:rinter::write or write2 with their options:

# String mode (SM):
$height = $dc->Write($text, $x, $y, [$format, [$just_width]]);
($width, $height) = $dc->Write($text, $x, $y, [$format,
[$just_width]]);

# Draw mode (DM):
$height = $dc->Write($text, $x, $y, $width, $height, [$format,
[$tab_stop]]);
($width, $height, $length, $text) = $dc->Write($text, $x, $y, $width,
$height, [$format, [$tab_stop]]);

but I can't figure out how to use them. How sprintf could help me
printing on printer device?

Thanks,

Davide

 

[Ben Morrow]

Ben Morrow ha scritto:

You need to use either sprintf or POSIX::localeconv or I18N::Langinfo;
or possibly there is a CPAN module to make this easier (the POSIX locale
interface is rather smelly).

Thanks Ben, I don't understand. I thought I could use
win32:rinter::write or write2 with their options:

# String mode (SM):
$height = $dc->Write($text, $x, $y, [$format, [$just_width]]);
($width, $height) = $dc->Write($text, $x, $y, [$format,
[$just_width]]);

# Draw mode (DM):
$height = $dc->Write($text, $x, $y, $width, $height, [$format,
[$tab_stop]]);
($width, $height, $length, $text) = $dc->Write($text, $x, $y, $width,
$height, [$format, [$tab_stop]]);

but I can't figure out how to use them.

Maybe you can; I don't know that module.

How sprintf could help me printing on printer device?

You format the number into a string and then print that. Having looked a
little further, I'd probably use Number::Format:

use Number::Format;

my $NF = Number::Format->new(
-thousands_sep => '.',
-decimal_point => ',',
);

my $formatted_price = $NF->format_picture(204, '###,##');

then print $formatted-price however you would have before.

Ben

 

[Dr.Ruud]

Ben Morrow schreef:

diavolo:

diavolo, I guess you mean Win32:rinter. Case matters.
Its manual is indeed not so clear and has large parts that would be
better presented in compact tables.

You need to use either sprintf or POSIX::localeconv or I18N::Langinfo;
or possibly there is a CPAN module to make this easier (the POSIX
locale interface is rather smelly).

That way would fail for a header in a proportional font.


The Write method has a "format" parameter:

($width, $height) = $dc->Write($price, $x, $y, RIGHT);


diavolo, see the documentation about the reference point.

 

[diavolo-verde]

Dr.Ruud ha scritto:

The Write method has a "format" parameter:

($width, $height) = $dc->Write($price, $x, $y, RIGHT);


diavolo, see the documentation about the reference point.

thanks, RIGHT is my friend, I'm getting what I wanted .

BR,

Davide