Hier ein kleines VB-Skript.
Man muß allerdings die Berechtigungen freischalten.
Function PrintPdf(ppPdf, ppPrinter)
Dim wsh, reg, aufruf
Set wsh = CreateObject("WScript.Shell")
reg = wsh.RegRead("HKEY_CLASSES_ROOT\.pdf\")
reg = wsh.RegRead("HKEY_CLASSES_ROOT\" & reg &
"\shell\print\command\")
If InStr(reg, "%1") > 0 Then
aufruf = Replace(reg, "%1", ppPdf) 'Reader 5
Else
aufruf = reg & " /p /h """ & ppPdf & """" 'Reader 4
End If
'/p file1.pdf file2.pdf ...
'Print a list of files.
'
'/t file.pdf printerName driverName portName
'Print a file to a particular printer.
'
'/h
'Hidden launch.
If Not IsNull(ppPrinter) And Not IsEmpty(ppPrinter) And
ppPrinter<>"" Then
aufruf = Replace(aufruf, "/p /h", "/t /h") & " """ & ppPrinter &
""" """" """""
End If
wsh.Exec(aufruf)
Set wsh = Nothing
End function
Gruß Frank
Am 11 Sep 2003, um 10:09 hat Roland Ebner geschrieben:
> Eigentlich soll ein Link aufscheinen, der das PDF nicht öffnet sondern
> gleich ausdruckt.
>
> Das sollte soweit alles sein.
>
> mfg
>
> R. Ebner
>
> > Hallo,
> >
> > >
> > > Gibt es eine Möglichkeit, PDF-Files die am Server liegen, direkt am
> > Client
> > > auszudrucken?
> > >
> >
> > Du meinst, ohne sie zu öffnen? Du könntest sie vielleicht mit
> > einer Komponente auslesen und dann drucken, aber Du müßtest
> > den Vorgang an sich ja vom Browser aus anstossen. Da kannst
> > Du auch gleich das PDF aufmachen und drucken.
> >
> > Was hast Du konkret vor? Möglicherweise habe ich Dich falsch
> > verstanden.
> >
> > Gruss
> >
> > Alex
> >
> > _______________________________________________
> > Asp.net mailing list
> > [EMAIL PROTECTED]
> > http://www.glengamoi.com/mailman/listinfo/asp.net
> >
>
> --
> COMPUTERBILD 15/03: Premium-e-mail-Dienste im Test
> --------------------------------------------------
> 1. GMX TopMail - Platz 1 und Testsieger!
> 2. GMX ProMail - Platz 2 und Preis-Qualitätssieger!
> 3. Arcor - 4. web.de - 5. T-Online - 6. freenet.de - 7. daybyday - 8. e-Post
>
> _______________________________________________
> Asp.net mailing list
> [EMAIL PROTECTED]
> http://www.glengamoi.com/mailman/listinfo/asp.net
>
---------------------------------------------------
Frank Dittrich
GECKO mbH, Herweghstrasse 20, 18055 Rostock, Germany
Tel. : +49-381-45488-0
Fax. : +49-381-45488-50
E-Mail : [EMAIL PROTECTED]
WWW : www.gecko.de
---------------------------------------------------
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
