Drucken? - #103815 (Graphische Oberflächen)

Mako

2007-12-13 10:24

User since
2007-10-05
31 Artikel
BenutzerIn
[default_avatar]

Also entweder ich bin jetzt völlig bescheuert oder es geht wirklich nicht.

Ich hab das geschrieben und meiner Meinung nach müsste jetzt auf Seite 1 "Test Seite 1" stehen und auf Seite 2 "Test Seite 2".

Code: (dl )

#!/usr/bin/perl

use Win32::Printer;
 my $dc = new Win32::Printer(
                                papersize       => A4,
                                dialog          => NOSELECTION,
                                description     => 'Result',
                                unit            => 'mm',

                            );


 my $font = $dc->Font('Arial', 12);
 $dc->Font($font);
 $dc->Color(0, 0, 255);
 $dc->page(1);
 $dc->Write(Test Seite 1, 10,10);
 $dc->page(2);
 $dc->Write(Test Seite 2, 20,20);
 $dc->Close();