Cambiando el nombre de la etiqueta me da otro error. El código que ahora ejecuto es el siguiente:
<html>
<head>
<title>Imprimir_PDF</title>
</head>
<body>
<script language="VBScript">
sub Imprimir_PDF()
dim i, ruta(3)
i= 0
ruta(0)= "c:\1.pdf"
ruta(1)= "c:\2.pdf"
ruta(2)= "c:\3.pdf"
for i= 0 to 2
fnShellExecuteVB ruta(i)
next
end sub
function fnShellExecuteVB (druta)
dim objShell
set objShell = CreateObject("Shell.Application")
objShell.ShellExecute druta, "", "", "print", 1
set objShell = nothing
end function
</script>
<label onclick="Imprimir_PDF">Imprimir_PDF</label>
</body>
</html>
El error es
Linea:24
Car:5
Error: Permiso denegado
Gracias y un saludo