Exec(PdfReader, [TmpPath, "apercu.pdf"] )
Exec(PdfReader,"apercu.pdf",TmpPath,1)
sumatrapdf apercu.df
Exec(Concat("cmd /C", @PdfReader),"apercu.pdf",TmpPath,0)
Exec(Concat("cmd /C", PdfReader),"apercu.pdf",TmpPath,0)
Exec(PdfReader, "apercu.pdf", TmpPath, 0, 1)
help = {macro permettant d'ouvrir un fichier pdf du dossier Doc}
[//help( nom sans extension, [,dossier] )
$nom:=if IsString(%1) then %1 else String(%1) fi,
$file:=Concat(nom,".pdf"),
if %2=Nil then
if FileExists(Concat(DocPath,file))
// then Exec(PdfReader,file,DocPath,0)
// then Exec(Concat("cmd /C",PdfReader),file,DocPath,0)
then Exec(PdfReader,file,DocPath,0,1)
elif FileExists(Concat(UserMacPath,nom,DirSep,file))
// then Exec(PdfReader,file, Concat(UserMacPath,nom,DirSep),0)
// then Exec(Concat("cmd /C",PdfReader),file, Concat(UserMacPath,nom,DirSep),0)
then Exec(PdfReader,file, Concat(UserMacPath,nom,DirSep),0,1)
else RaiseError([ErrFile:="Interface.mac", ErrMacro:="help()",ErrLevel:="warning",
ErrType:=Concat(file," not found.")])
fi
// else Exec(PdfReader,file, Concat(%2,String(%1),DirSep),0)
// else Exec(Concat("cmd /C",PdfReader),file, Concat(%2,String(%1),DirSep),0)
else Exec(PdfReader,file, Concat(%2,String(%1),DirSep),0,1)
fi
];
help(TeXgraph-fr)
Revenir vers Propositions - Discussions
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 10 invités