J'imprime pas...

Nombre de messages : 586 Date d'inscription : 06/01/2012

Salut les Panoramiciens ! maintenant retraité, je me remets à la programmation et j'ai écrit un tout petit utilitaire tout simple pour mes jeunes collègues de l'internat.

Vous êtes parvenus très haut dans vos projets mais je vais vous faire redescendre au ras des pâquerettes : je voudrais ajouter des boutons sur le FORM pour imprimer à la demande telle ou telle liste d'élèves. Je pourrais recréer celle-ci sur un autre FORM ; la difficulté réside dans la commande d'impression que je ne trouve pas ou alors je l'ai oubliée. N'y aurait-il comme option que passer par le clipboard ?
Merci pour votre aide et bravo pour tous vos programmes, que je vais maintenant redécouvrir avec un retard certain Smile

Nombre de messages : 586 Date d'inscription : 06/01/2012

Je m'autoréponds car je n'ai même pas eu le réflexe de copier le programme Rolling Eyes

Code:: Caption 0,"Equipe de choc : Listes version 1.0"

dim i%,j%,k%
label Change_Prof
width 0,800:height 0,480

' Boucle pour tracer le tableau

  for i% = 1 to 8
   for j% = 1 to 5
   k% =i% + 8*(j% -1)
   edit k% : top k%,60+(i%*30) : left k%,(j%*130)-60
   next j%
  next i%

alpha 50:left 50,70:top 50,360
caption 50,"Cette feuille sert à faire des groupes.Il suffit de taper du texte dans les cases.Clique sur un nom de prof pour le changer."

' Saisie des noms des enseignant(e)s

  for i%=51 to 55
   alpha i% : left i%,((i%-50)*130)-60 : top i%,0
   font_size i%,20
  next i%

caption 51,"Estelle"
caption 52,"Chloé"
caption 53,"Valentine"
caption 54,"???"
caption 55,"Pierre"

on_click 51,Change_Prof
on_click 52,Change_Prof
on_click 53,Change_Prof
on_click 54,Change_Prof
on_click 55,Change_Prof

' Saisie des noms des groupes

  for i%=61 to 65
   edit i% : left i%,((i%-60)*130)-60 : top i%,40
   font_size i%,14
  next i%

END
Change_Prof:
j%=number_click
caption j%,message_input$("Donnée à entrer","Indiquer le nom",caption$(j%))
return

Bonjour à tous !

@Froggy One
Voici un exemple de possibilité d'impression en passant par le bloc-notes Windows.

Code:: Caption 0,"Equipe de choc : Listes version 1.0"

dim i%,j%,k%
label Change_Prof, imprimer
width 0,800:height 0,480

' Boucle pour tracer le tableau

  for i% = 1 to 8
   for j% = 1 to 5
   k% =i% + 8*(j% -1)
   edit k% : top k%,60+(i%*30) : left k%,(j%*130)-60
   text k%,k% :' ajouté par Marc pour les tests *****************************
   next j%
  next i%

alpha 50:left 50,70:top 50,360
caption 50,"Cette feuille sert à faire des groupes.Il suffit de taper du texte dans les cases.Clique sur un nom de prof pour le changer."

' Saisie des noms des enseignant(e)s

  for i%=51 to 55
   alpha i% : left i%,((i%-50)*130)-60 : top i%,0
   font_size i%,20
  next i%

caption 51,"Estelle"
caption 52,"Chloé"
caption 53,"Valentine"
caption 54,"???"
caption 55,"Pierre"

on_click 51,Change_Prof
on_click 52,Change_Prof
on_click 53,Change_Prof
on_click 54,Change_Prof
on_click 55,Change_Prof

' Saisie des noms des groupes

  for i%=61 to 65
   edit i% : left i%,((i%-60)*130)-60 : top i%,40
   text i%,i% :' Ajouté par Marc pour les tests *******************************
   font_size i%,14
  next i%

' boutons "imprimer"

  for i% = 101 to 105
   button i% : left i%,((i%-100)*130)-60 : top i%,400 : width i%,120
   caption i%,"Imprimer liste"
   on_click i%,imprimer
  next i%

' objet non visible DLIST pour regrouper les informations à imprimer
  dlist 100

END
Change_Prof:
j%=number_click
caption j%,message_input$("Donnée à entrer","Indiquer le nom",caption$(j%))
return

imprimer:
   j%=number_click

   ' vider l'objet DLIST
   clear 100

   ' copier les champs à imprimer dans le DLIST
   select j%
   case 101
   item_add 100,"Enseignant : " + caption$(51)
   item_add 100,"Groupe : " + text$(61)
   for i% = 1 to 8
   item_add 100,text$(i%)
   next i%

   case 102
   item_add 100,"Enseignant : " + caption$(52)
   item_add 100,"Groupe : " + text$(62)
   for i% = 9 to 16
   item_add 100,text$(i%)
   next i%

   case 103
   item_add 100,"Enseignant : " + caption$(53)
   item_add 100,"Groupe : " + text$(63)
   for i% = 17 to 24
   item_add 100,text$(i%)
   next i%

   case 104
   item_add 100,"Enseignant : " + caption$(54)
   item_add 100,"Groupe : " + text$(64)
   for i% = 25 to 32
   item_add 100,text$(i%)
   next i%

   case 105
   item_add 100,"Enseignant : " + caption$(55)
   item_add 100,"Groupe : " + text$(65)
   for i% = 33 to 40
   item_add 100,text$(i%)
   next i%
   end_select

   ' enregistrer la sélection dans un fichier temporaire texte
   file_save 100,dir_current$ + "\temp.txt"

   ' ouvrir NOTEPAD et charger le fichier temporaire texte prêt à imprimer
   execute_wait "notepad.exe |" + dir_current$ + "\temp.txt"

   ' effacer le fichier temporaire texte
   file_delete dir_current$ + "\temp.txt"
return

Bonne programmation !

Complément de mon précédent post :

@Froggy One

Si tu souhaites imprimer automatiquement le fichier du bloc-notes Windows, tu peux ajouter l’option /p dans la commande execute_wait, ligne 115.

Voici la syntaxe à utiliser en remplacement de la ligne 115 :

Code:: execute_wait "notepad.exe |/p" + dir_current$ + "\temp.txt"

Le contenu du fichier temp.txt sera envoyé, via le bloc-notes, à l’imprimante par défaut de Windows.
La police et la taille seront celles qui sont présélectionnées dans l'onglet Format du bloc-notes Windows.

Sous Windows, le nom pour lancer le bloc-notes est notepad.exe.

Bonne continuation !

Nombre de messages : 586 Date d'inscription : 06/01/2012

Grand merci Marc ! j'ai compris, c'est EXECUTE_WAIT qu'il me fallait plus un SELECT_CASE sur les boutons. Comme tu les as créés toi-même , je n'ai plus rien à faire... qu'à me lancer dans un nouveau projet, après avoir un peu étoffé celui-là. Super !
PS : j'ai AUSSI oublié comment on indique que le post est clos ?!?

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Froggy One a écrit:: j'ai AUSSI oublié comment on indique que le post est clos ?!?

Pour cela, tu changes le titre et tu mets :
« J'imprime pas... (clos) » ou (fermé) ou...
Laughing

@Froggy One

Effectivement, plutôt qu’une longue explication j’ai préféré compléter ton programme avec quelques lignes de code parsemées de commentaires. C’est plus explicite et cela m’a permis de tester la technique utilisée.
Ces lignes de code ne sont qu’un exemple parmi d’autres possibilités d’écriture…

Pour clore le fil de discussion, JJN4 t’a répondu ci-dessus. J’ajouterais une autre possibilité, mettre [RESOLU] entre crochets à la fin du sujet de la discussion.

Nombre de messages : 586 Date d'inscription : 06/01/2012

Yes ! voici le code à ce jour en l'état. En attendant la suite ! merci encore !!!

Code:: Caption 0,"Equipe de choc : Listes version 1.0"
' avec un gros coup de pouce de Marc !

dim i%,j%,k%
label Change_Prof, imprimer, info
width 0,800:height 0,480

' Boucle pour tracer le tableau

  for i% = 1 to 8
   for j% = 1 to 5
   k% =i% + 8*(j% -1)
   edit k% : top k%,60+(i%*30) : left k%,(j%*130)-60
   ' text k%,k% :' ajouté par Marc pour les tests *****************************
   next j%
  next i%

alpha 50:left 50,70:top 50,360
caption 50,"Cette feuille sert à faire des groupes.Il suffit de taper du texte dans les cases.Clique sur un nom de prof pour le changer."

' Saisie des noms des enseignant(e)s

  for i%=51 to 55
   alpha i% : left i%,((i%-50)*130)-60 : top i%,0
   font_size i%,20
  next i%

caption 51,"Estelle"
caption 52,"Chloé"
caption 53,"Valentine"
caption 54,"???"
caption 55,"Pierre"

on_click 51,Change_Prof
on_click 52,Change_Prof
on_click 53,Change_Prof
on_click 54,Change_Prof
on_click 55,Change_Prof

' Saisie des noms des groupes

  for i%=61 to 65
   edit i% : left i%,((i%-60)*130)-60 : top i%,40
   ' text i%,i% :' Ajouté par Marc pour les tests *******************************
   font_size i%,14
  next i%

' boutons "imprimer"

  for i% = 101 to 105
   button i% : left i%,((i%-100)*130)-60 : top i%,400 : width i%,120
   caption i%,"Imprimer liste"
   on_click i%,imprimer
  next i%

' bouton Info

button 106 : left 106, 730 : top 106,400
width 106,32 : caption 106, "Info"
on_click 106,info

' objet non visible DLIST pour regrouper les informations à imprimer
  dlist 100

END
Change_Prof:
j%=number_click
caption j%,message_input$("Donnée à entrer","Indiquer le nom",caption$(j%))
return

imprimer:
   j%=number_click

   ' vider l'objet DLIST
   clear 100

   ' copier les champs à imprimer dans le DLIST
   select j%
   case 101
   item_add 100,"Enseignant : " + caption$(51)
   item_add 100,"Groupe : " + text$(61)
   for i% = 1 to 8
   item_add 100,text$(i%)
   next i%

   case 102
   item_add 100,"Enseignant : " + caption$(52)
   item_add 100,"Groupe : " + text$(62)
   for i% = 9 to 16
   item_add 100,text$(i%)
   next i%

   case 103
   item_add 100,"Enseignant : " + caption$(53)
   item_add 100,"Groupe : " + text$(63)
   for i% = 17 to 24
   item_add 100,text$(i%)
   next i%

   case 104
   item_add 100,"Enseignant : " + caption$(54)
   item_add 100,"Groupe : " + text$(64)
   for i% = 25 to 32
   item_add 100,text$(i%)
   next i%

   case 105
   item_add 100,"Enseignant : " + caption$(55)
   item_add 100,"Groupe : " + text$(65)
   for i% = 33 to 40
   item_add 100,text$(i%)
   next i%
   end_select

   ' enregistrer la sélection dans un fichier temporaire texte
   file_save 100,dir_current$ + "\temp.txt"

   ' ouvrir NOTEPAD et charger le fichier temporaire texte prêt à imprimer
   execute_wait "notepad.exe |" + dir_current$ + "\temp.txt"

   ' effacer le fichier temporaire texte
   file_delete dir_current$ + "\temp.txt"
return

info:
message "Créé en PANORAMIC par JL - avec un coup de pouce de Marc "
return