Impression d'un canvas

**dmganges** · 16/10/2014, 07h24

Bonjour,
Je cherche comment imprimer un canvas, je suis sous Windows 7.

J'ai trouvé ceci.
J'ai donc fait quelques essais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl
# file canvas_10_print.pl
use warnings;
use strict;
use utf8;
use Tk;
 
# open(IMPRIMANTE, "| lpr -Plp1")    || die "Erreur d'exécution de lpr: $!";
# \\HPC4346BE4025D
# CN44H7C8BS0602
# HP Photosmart 5520 series (réseau)
#open(IMPRIMANTE, "| lpr -PLPT1")    || die "Erreur d'exécution de lpr: $!";
 
#to change the background color, edit the ps file 
#  0.000 0.000 0.000 setrgbcolor AdjustColor 
#  fill 
 
my $width = 80;
my $height = 80;
my $main = MainWindow->new();
my $canvas = $main->Canvas( -width=>$width, -height=>$height, -background=>"black");
$canvas->pack( -expand=>1,-fill=>'both');
 
&create;
 
$canvas->update;
$main->update;
 
$main->Button(
	-text    => "Save",
	-command => [sub {
		$canvas->update;
		my @capture=();
		my ($x0,$y0,$x1,$y1)=$canvas->bbox('all');
		@capture=('-x'=>$x0,'-y'=>$y0,-height=>$y1-$y0,-width=>$x1-$x0);
		$canvas -> postscript(-colormode=>'color',
			-file=>$0.'.ps',
			-rotate=>0,
			-width=>800,
			-height=>500,
			@capture);
		}
	] )->pack;
 
$main->Button(
	-text    => "Print",
	-command => [sub {
		open (PS, "| lpr -PLPT1"); # customize with -Pname e.g. 
		print PS $canvas;
		close (PS);
	}
	] )->pack;
 
MainLoop;
 
sub create{
	$canvas->createOval(10, 10, 60, 60,-fill=>'green');
}

J'ai des soucis d'impression avec lpr en Windows7.

Existe t-il une autre façon d'imprimer des canvas en Perl ?
NB : Le canvas en question ne contiendrait que des courbes (tracé de cadrans solaires) et quelques libellés.
MERCI d'avance !

**djibril** · 16/10/2014, 10h01

Avec ce code mieux indenté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/usr/bin/perl
# file canvas_10_print.pl
use warnings;
use strict;
use utf8;
use Tk;
 
# open(IMPRIMANTE, "| lpr -Plp1")    || die "Erreur d'exécution de lpr: $!";
# \\HPC4346BE4025D
# CN44H7C8BS0602
# HP Photosmart 5520 series (réseau)
#open(IMPRIMANTE, "| lpr -PLPT1")    || die "Erreur d'exécution de lpr: $!";
 
#to change the background color, edit the ps file
#  0.000 0.000 0.000 setrgbcolor AdjustColor
#  fill
 
my $width  = 80;
my $height = 80;
my $main   = MainWindow->new();
my $canvas = $main->Canvas(
	-width      => $width,
	-height     => $height,
	-background => "black"
);
$canvas->pack( -expand => 1, -fill => 'both' );
 
&create;
 
$canvas->update;
$main->update;
 
$main->Button(
	-text    => "Save",
	-command => [
		sub {
			$canvas->update;
			my @capture = ();
			my ( $x0, $y0, $x1, $y1 ) = $canvas->bbox('all');
			@capture = ( '-x' => $x0, '-y' => $y0, -height => $y1 - $y0, -width => $x1 - $x0 );
			$canvas->postscript(
				-colormode => 'color',
				-file      => $0 . '.ps',
				-rotate    => 0,
				-width     => 800,
				-height    => 500,
				@capture
			);
		  }
	]
)->pack;
 
$main->Button(
	-text    => "Print",
	-command => [
		sub {
			open( PS, "| lpr -PLPT1" );    # customize with -Pname e.g.
			print PS $canvas;
			close(PS);
		  }
	]
)->pack;
 
MainLoop;
 
sub create {
	$canvas->createOval( 10, 10, 60, 60, -fill => 'green' );
}

Voici mon résultat :

Envoie un travail d'impression vers une imprimante du réseau

Utilisation*: lpr -S Serveur -P Imprimante [-C Classe] [-J Travail]
[-o Option] [-x] [-d] nom du fichier

Options*:
-S Serveur Nom ou adresse IP de l'hôte fournissant le service lpd
-P Imprimante Nom de la file d'attente d'impression
-C Classe Classification du travail pour utilisation sur la page
de salve
-J Travail Nom du travail à imprimer sur la page de salve
-o Option Indique le type de fichier (suppose par défaut que
c'est un fichier texte)
Utilisez "-o l" pour les fichiers binaires (par ex*:
Postscript)
-x Compatibilité avec SunOS 4.1.x et versions antérieures
-d Envoyer d'abord le fichier de données

Il faut voir pour utiliser les bons paramètres.

**dmganges** · 16/10/2014, 11h01

Bonjour djibril et merci pour ta réponse.
Désolé pour l'indentation, j'ai fait un copier/coller du net juste pour tester la faisabilité de l'impression...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
E:\_DEV\_Canvas>lpr -help
Usage: lpr [--help|-help] [-h] [-D] [-d device] [-l] [-P device]
 
where:
 
  -h        does nothing. Accepted for compatibility.
  -d device spools to the specified device.
  -D        enable debugging output.
  -l        prevent <LF> -> <CR><LF> processing. By default, standalone
            <LF> characters are converted to <CR><LF>.
  -P device spools to the specified device.
  --help    print this message.
  -help     print this message.
 
Notes:
 
-d and -P are aliases of each other and perform the same function.
Device names may take the form of DOS devices (e.g., lpt1:) if the printer
is connected locally. Network printers can be accessed using the form
'\\server\printer_name'. Forward slashes can be used as well, e.g.,
'//server/printer_name'.
 
The environment variable PRINTER can be used to set the default printer
device.

-S n'existe plus
- J'ai valué une variable PRINTER, pas mieux
- avec l'option -D debug :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
E:\_DEV\_Canvas>lpr -D -P LPT1 print.bat
Windows printer name = 'LPT1'
isWindows9x = 0, isWindows2K_NT4 = 1
Printer name: 'HP Photosmart 5520 series (r▒seau)', Port name: 'CN44H7C8BS0602'
Printer name: 'Fax', Port name: 'SHRFAX:'
lpr: printer error: can't open 'LPT1' for writing: Le nom de l▒imprimante n▒est pas valide.

- LPT1 est bien reconnu
- Le nom imprimante est bien reconnu
...
Bref en 2014 c'est toujours une galère pour faire une impression !

S'il n'y a pas une autre solution en Perl/Kk je continue sur le forum Windows7

Encore MERCI !

**djibril** · 16/10/2014, 11h32

Perl/Tk te permettra juste d'avoir ton fichier postscript. Pour lancer l'impression, c'est une autre histoire.
J'essaye de regarder les modules printer sur le cpan, mais

.
Imprimer en ligne de commande sous Windows

L'idéal, ce serait de pouvoir lancer la fenêtre Windows pour choisir son imprimante, mais comment faire cela en ligne de commande

**dmganges** · 16/10/2014, 13h02

Envoyé par djibril

Perl/Tk te permettra juste d'avoir ton fichier postscript. Pour lancer l'impression, c'est une autre histoire.
J'essaye de regarder les modules printer sur le cpan, mais

.
Imprimer en ligne de commande sous Windows

L'idéal, ce serait de pouvoir lancer la fenêtre Windows pour choisir son imprimante, mais comment faire cela en ligne de commande

MERCI djibril !
ATTENTION ça semble être un pb exclusivement Windows7 !

Comme d'hab, perso c'est pour meubler le temps, donc n'y consomme pas tout le tien !
Bien sûr il serait intéressant de pouvoir imprimer un canvas en Win7, si j'ai posé la question sur Tk c'est pour être certain qu'il n'y avait pas d'autres solutions...

J'ai déjà réalisé le pgm en Borland C++ sur XP il y a une dizaine d'années !!!
Je n'ai pas envie de me remettre à C++ et j'avais envie de voir ce qu'on pouvait faire sur un canvas Perl/Tk en réalisant quelques variantes du cadran de berger (pyrénéen)...

[EDIT 17/10 11:05] Résolu

**alainbb** · 18/10/2014, 09h37

Bonjour,

Pour mon programme kandela, je passe par GhostScript

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   my $path_mswin_gs;
    if ($^O eq "MSWin32") {
        my $path="C:\\Program Files\\Ghostgum\\gsview\\gsview64.exe";
        if (-e $path) {$path_mswin_gs=$path;}
        $path="C:\\Program Files (x86)\\Ghostgum\\gsview\\gsview32.exe";
        if (-e $path) {$path_mswin_gs=$path;}
        system("\"$path_mswin_gs\" -p $nameFile");
    }

Impression d'un canvas

Interfaces Graphiques Perl

Vue hybride

Discussions similaires

Partager

Partager