Quantcast
Channel: Imprimir pdf automaticamente
Viewing all articles
Browse latest Browse all 20

Imprimir pdf automaticamente

$
0
0

 

también me marca el error del permiso, pero lo tengo en C...

 el código que uso es este:

 

<

htmlxmlns="http://www.w3.org/1999/xhtml">

<

headrunat="server">

<title>Untitled Page</title>

</

head>

<

scriptlanguage="VBScript">

sub Imprimir_PDF()

dim i, ruta(3)

i= 0

ruta(0)= "c:\prueba.pdf"

ruta(1)= "c:\prueba2.pdf"

ruta(2)= "c:\prueba3.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>

 

 

<

body>

<formid="form1"runat="server">

<div>

<labelonclick="Imprimir_PDF">Imprimir_PDF</label>

</div>

</form>

</

body>

</

html>

 

que esta fallando???  Tongue Tied


Viewing all articles
Browse latest Browse all 20

Trending Articles