Perl

Lancer une impression en perl/TK

Recherche :

Sujet(s) à lire :
- Visual C++

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lancer une impression en perl/TK

leguijo

Je voudrais lancer une impression d'un canvas ou d'une frame,
dans lequel j'ai des courbes,
quelle commande puis je lancer,

sinon qui connait la commande pour ouvrir une fentre en plein ecran en perl/TK,

Merci d'avance pour vos reponses.

Publicité

Aricoh

gentil mais fo po pousser

leguijo a écrit a écrit :

Je voudrais lancer une impression d'un canvas ou d'une frame,
dans lequel j'ai des courbes,
quelle commande puis je lancer,

Je ne connais pas de commande toute faite en Tk pour imprimer. Par contre, si tu peux récupérer le contenu de ton canvas ou de ta frame dans un fichier, tu devrais au moins imprimer ce fichier, j'sais pas trop.

leguijo a écrit a écrit :

sinon qui connait la commande pour ouvrir une fentre en plein ecran en perl/TK

Tu peux être + précis ici ? Tu veux ouvrir quoi comme fenêtre en plein écran ? Une fenêtre Dos ? Une autre widget ?

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

leguijo

Salut Aricoh,

en fait je souhaite ouvrir une fentre en TK(la fenetre principale),
en plein ecran cad dans un etat ou elle peut etre iconiser ou reduite.

Pour l'impression: j'ai en fait des courbes qui sont tracer dans un canvas et je souhaiterais les imprimer,
seulement si je passe par un fichier intermediaire je ne retrouverai pas le format de mes courbes.

Merci d'avance

Aricoh

gentil mais fo po pousser

Pour la taille de la fenêtre, j'ai fait ceci dans un code :

Code :

$Hauteur = 600;
$Largeur = 800;
$mw = MainWindow->new(); # $mw = ma Widget
$mw->maxsize($Largeur, $Hauteur);
$mw->minsize($Largeur, $Hauteur);

De cette manière, la fenêtre qui s'affiche a une taille prédéfinie qui ne peut changer, ici 800*600

A mon avis, si tu veux que la taille de la widget soit configurable en plein écran selon la résolution de l'écran, il va sans doute falloir utiliser des API de Win32 pour connaître la résolution écran par défaut ? J'sais pas, à moins qu'il existe une fonction sous Tk mais je l'ignore.

De toutes façons, la gestion graphique de Tk sous Windows, c'est jamais la joie : une fois t'as la fenêtre qui apparait au milieu, d'autres fois sur la gauche, des fois tu n'as même pas le focus, le truc bien gavant

Sinon, pour ton impression de canvas, je sèche complètement, sorry

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

leguijo

Merci tout de meme!

circeedevalette

Aricoh a écrit a écrit :

Je ne connais pas de commande toute faite en Tk pour imprimer. Par contre, si tu peux récupérer le contenu de ton canvas ou de ta frame dans un fichier, tu devrais au moins imprimer ce fichier, j'sais pas trop.

Tu peux être + précis ici ? Tu veux ouvrir quoi comme fenêtre en plein écran ? Une fenêtre Dos ? Une autre widget ?

salut les amis,
j'ai moi aussi un probleme pour imprimer un canvas

j'ai trouvé ca sur perltk.org

Citation :

Hi Roderick,
I "cheated" my way into doing this a while back when writing something
for my wife. I used the "postscript()" canvas function to write the data
out to a postscript file which I then fed into GhostScript to send to my
Windows printer. Not the prettiest thing in the world, granted, but it did
get the job done. The code I had looked something like this:
-------------

$canvas->postscript( -colormode=>'mono', -file=>'master.ps', -x=>0, -y=>0, -
height=>'11i', -width=>'8i';

open( GS, "|gswin32c -sDEVICE=mswinpr2 - >NUL:" ) || die "Couldn't open the
printer!\n";
print GS "(master.ps) run\n";
for( 1..$copies)
{
print GS "(output.ps) run\n";
}

print GS "quit\n";
close GS;

mais ce n'est pas folichon
y a pas moyen en win32 d'utiliser la boite de dialogue par defaut de windows?

Aricoh

gentil mais fo po pousser

va voir sur http://www.le-berre.com/perl/perlxtd.htm

ils indiquent comment utiliser les MsgBox de Windows sous Perl

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

FORUM HardWare.fr

Programmation

Perl

Lancer une impression en perl/TK

Sujets relatifs
[PERL] Problème d'allocation de la mémoire	[Perl][win32] connaître le browser internet par défaut
Perl en php ?	[HTML PHP JAVASCRIPT] pb d'impression
programmation d'impression avec visual basic 6	lire et mettre un octet dans un tableau sous PERL
[Access] Lancer une macro à une heure défini ?	Comment lancer un onSubmit quand le submit est un lien??
[HTML] Lancer plusieurs formulaire en un seul clic...	Impression d'un container
Plus de sujets relatifs à : Lancer une impression en perl/TK

Page générée en 0.042 secondes