FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Impression de documents Emptypar lepetitmarocain Aujourd'hui à 10:28

» Aide-mémoire des mots-clés Panoramic
Impression de documents Emptypar JL35 Hier à 22:31

» Aide-mémoire des mots-clés Panoramic
Impression de documents Emptypar Robert Darville Hier à 15:47

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Impression de documents Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Impression de documents Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Impression de documents Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Impression de documents Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Impression de documents Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Impression de documents Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Impression de documents Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Petit passage furtif
Impression de documents Emptypar Yannick Lun 26 Fév 2024 - 13:47

» Testez-votre-QI
Impression de documents Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Impression de documents Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Impression de documents Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Impression de documents Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
-50%
Le deal à ne pas rater :
Trottinette électrique OCEAN DRIVE A9 avec clignotants
299.99 € 599.99 €
Voir le deal

 

 Impression de documents

Aller en bas 
2 participants
AuteurMessage
JL35




Nombre de messages : 7084
Localisation : 77
Date d'inscription : 29/11/2007

Impression de documents Empty
MessageSujet: Impression de documents   Impression de documents EmptyMar 20 Nov 2018 - 19:47

Suite à l'intervention du petitmarocain dans la rubrique 'A l'aide', j'ai retrouvé une petite mine d'or dans mes archives, un truc que j'avais trouvé sur internet pour imprimer des documents, sans faire appel à des ressources externes:
Code:
DIM f$
f$ = "C:\TEMP\Exemple.pdf"
PrintAny(f$)
END

SUB PrintAny(f$)
  ' Impression passante du fichier f$ (types différents à tester)
  ' (d'après: http://www.robvanderwoude.com/printfiles.php)
  ' Testé avec succès pour du .TXT et du .RTF (texte enrichi)
  DIM_LOCAL q$,a$,fbat$
  fbat$ = "Z:\Printany.bat": ' <=========== À AJUSTER ! (fichier temporaire) =====
  q$ = CHR$(34)
DATA "PrintAny"
DATA "@ECHO OFF"
DATA "SETLOCAL"
DATA "SET PrintCmd="
DATA "SET FileType="
DATA "SET Temp=%Temp:"+q$+"=%"
DATA "FOR /F "+q$+"tokens=1* delims=="+q$+" %%A IN ('ASSOC %~x1') DO ("
DATA " FOR /F "+q$+"tokens=1 delims=="+q$+" %%C IN ('FTYPE ^| FIND /I "+q$+"%%~B"+q$+"') DO ("
DATA "  CALL :GetPrintCommand %%~C"
DATA " )"
DATA ")"
DATA "IF NOT DEFINED PrintCmd GOTO NoAssoc"
DATA "CALL START /MIN "+q$+"PrintAny"+q$+" %PrintCmd%"
DATA "GOTO End"
DATA ":GetPrintCommand"
DATA "FOR /F "+q$+"tokens=3*"+q$+" %%D IN ('REG.EXE Query HKCR\%1\shell\print\command /ve 2^>NUL') DO SET PrintCmd=%%E"
DATA "IF NOT DEFINED PrintCmd GOTO:EOF"
DATA "SET PrintCmd=%PrintCmd:"+q$+"="+q$+"%"
DATA "SET PrintCmd=%PrintCmd:"+q$+q$+"="+q$+"%"
DATA "SET PrintCmd=%PrintCmd:\\=\%"
DATA "ECHO.%PrintCmd% | FINDSTR.EXE /R /C:"+q$+""+q$+"%%1"+q$+q$+" >NUL && SET PrintCmd=%PrintCmd:"+q$+"%1"+q$+"="+q$+"%%%~1"+q$+"%"
DATA "GOTO:EOF"
DATA ":NoAssoc"
DATA "CLS"
DATA ":End"
DATA "F"
  READ a$: WHILE a$<>"PrintAny": READ a$: END_WHILE
  FILE_OPEN_WRITE 9,fbat$
    READ a$: WHILE a$<>"F": FILE_WRITELN 9,a$: READ a$: END_WHILE
  FILE_CLOSE 9
  EXECUTE_WAIT fbat$+"|"+f$
  FILE_DELETE fbat$
END_SUB

J'ai essayé rapidement différentes types de formats de fichiers:
.TXT, .RTF, .DOCX, .ODT, et même .PDF, ça marche !
et aussi .XLS (tableur)
par contre, pas les images (bmp, jpg)
Revenir en haut Aller en bas
jjn4

jjn4


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

Impression de documents Empty
MessageSujet: +++   Impression de documents EmptyVen 23 Nov 2018 - 19:26

Oh, oh, intéressant, ça !
Merci JL35.
cheers
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
JL35




Nombre de messages : 7084
Localisation : 77
Date d'inscription : 29/11/2007

Impression de documents Empty
MessageSujet: Re: Impression de documents   Impression de documents EmptyVen 23 Nov 2018 - 19:45

Salut jjn,
Y'a pas de quoi, c'est un plaisir !
Revenir en haut Aller en bas
Contenu sponsorisé





Impression de documents Empty
MessageSujet: Re: Impression de documents   Impression de documents Empty

Revenir en haut Aller en bas
 
Impression de documents
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Mes Documents
» My Key Documents
» impression
» Impression
» Impression d'étiquettes

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: