Bueno, pues ya he consegido solucionarlo.
lo dejo aqui por si a alguien le puede servir o alguien lo puede mejorar.
Código:
<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>