Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

stampare la prima pagina di molti file PDF

26 views
Skip to first unread message

Ammammata

unread,
Mar 3, 2021, 4:57:34 AM3/3/21
to
il cliente sta usando PDF Xchange Viewer, ma possiamo anche usare qualcosa
di diverso, se possibile evitando quel mattone che è l'acrobat reader
originale

qualcosa che avete già avuto modo di provare in tal senso?

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

SB

unread,
Mar 3, 2021, 5:06:28 AM3/3/21
to
Il giorno Wed, 3 Mar 2021 09:57:30 -0000 (UTC), Ammammata
<amma...@tiscalinet.it> ha scritto:

>il cliente sta usando PDF Xchange Viewer, ma possiamo anche usare qualcosa
>di diverso, se possibile evitando quel mattone che è l'acrobat reader
>originale
>
>qualcosa che avete già avuto modo di provare in tal senso?

Io per un'esigenza simile, si doveva stampare l'ultima pagina di centinaia di
pdf, mi sono fatto uno script in vbs che con una serie di sendkeys comandava
Foxit Reader.

Se ti interessa lo cerco.

--
ciao
Stefano

Ammammata

unread,
Mar 3, 2021, 6:36:38 AM3/3/21
to
Il giorno Wed 03 Mar 2021 11:06:27a, *SB* ha inviato su it.comp.aiuto il
messaggio news:sonu3gl7kgniv0ijg...@4ax.com. Vediamo cosa ha
scritto:

> Se ti interessa lo cerco.
>

se lo trovi vedo di adattarlo, grazie

SB

unread,
Mar 3, 2021, 6:58:36 AM3/3/21
to
Il giorno Wed, 3 Mar 2021 11:36:34 -0000 (UTC), Ammammata
<amma...@tiscalinet.it> ha scritto:

>Il giorno Wed 03 Mar 2021 11:06:27a, *SB* ha inviato su it.comp.aiuto il
>messaggio news:sonu3gl7kgniv0ijg...@4ax.com. Vediamo cosa ha
>scritto:
>
>> Se ti interessa lo cerco.
>>
>
>se lo trovi vedo di adattarlo, grazie

Ecco qui, è roba di diversi anni fa, comunque se hai qulche quesito cerco di
aiutarti

Il programma usa CurDir, quindi andrebbe lanciato all'interno dell cartella con
i files.

Carica il testo tra le righe sotto in un editor e salvalo come PrintLast.vbs
___________________________________

'Programma per stampare l'ultima pagina di in file pdf in una PNG

Set Fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
CurDir = oShell.CurrentDirectory & "\"

ImPAth=(CurDir & "Images\")
If Fso.FolderExists(ImPAth)=False Then Fso.CreateFolder(ImPAth): WScript.Sleep
1000

Set objFolder = Fso.GetFolder(CurDir)
Set colFiles = objFolder.Files


Set Processes = GetObject("winmgmts:").InstancesOf("Win32_Process")
For Each Process In Processes
If StrComp(Process.Name, "FoxitReader.exe", vbTextCompare) = 0 Then
If Len(intProcessId) = 0 Then intProcessId = Process.ProcessId
'MsgBox Process.Name &" "&intProcessId
Exit For
End If
Next


For Each objFile in colFiles
Np = objFile.Path 'nome completo

If (LCase(Fso.GetExtensionName(Np)) = "pdf") And InStr(Np,"Atto")>0
Then
Nam = ImPAth & Fso.GetBaseName(Np)
Namp = Nam & ".png"

If Fso.FileExists(Namp)= False Then

oShell.Run Chr(34) & Np & Chr(34) ,0 ,False
Text2Clip Nam

Call PrintLast
X=100
Do: If Fso.FileExists(Namp)= True Then Exit Do
Wscript.Sleep 300
If x=0 Then MsgBox Namp & vbcrlf & "UNFOUND":
WScript.Quit
X=X-1
Loop
End If

End If
Next

WScript.Quit

Sub PrintLast

Wscript.Sleep 300

oShell.AppActivate intProcessId : WScript.Sleep 200

' Cmd = NirCmd & " win activate etitle " & Chr(34) & "eader" & Chr(34):
oShell.Run Cmd ,0, True

oShell.SendKeys "^{END}" 'conferma
WScript.Sleep 200

oShell.SendKeys "^p"
WScript.Sleep 200

oShell.SendKeys "{TAB}" :WScript.Sleep 100
oShell.SendKeys "{TAB}" :WScript.Sleep 100
oShell.SendKeys "{TAB}" :WScript.Sleep 100
oShell.SendKeys "{TAB}" :WScript.Sleep 100
oShell.SendKeys "{TAB}" :WScript.Sleep 100

oShell.SendKeys "{UP}" :WScript.Sleep 100

oShell.SendKeys "{ENTER}" 'conferma


Wscript.Sleep 1500

oShell.SendKeys "^a" :WScript.Sleep 200'NOME FILE

oShell.SendKeys "^v" 'NOME FILE
WScript.Sleep 800

Dly = 300

oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly

oShell.SendKeys "{DOWN}" :WScript.Sleep Dly


oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly

oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly
oShell.SendKeys "{TAB}" :WScript.Sleep Dly

oShell.SendKeys "{ENTER}" 'conferma

Wscript.Sleep 1000

oShell.AppActivate intProcessId : WScript.Sleep 200

oShell.SendKeys "^{F4}" :WScript.Sleep 1000'NOME FILE

End Sub


Sub Text2Clip(Txt)
' Set Fso = CreateObject("Scripting.FileSystemObject")

DirWinSys = Fso.GetSpecialFolder(1)
ClpB = DirWinSys & "\clip.exe"

If Fso.FileExists(ClpB)Then
' ForceCScript()
Set objShell= CreateObject("WScript.Shell")

Set oExec = objShell.Exec(ClpB)

Set oIn = oExec.stdIn
WScript.Sleep 20
oIn.WriteLine Txt
WScript.Sleep 10
oIn.Close
End If
End Sub

_______________________________
--
ciao
Stefano

Ammammata

unread,
Mar 3, 2021, 7:00:35 AM3/3/21
to
Il giorno Wed 03 Mar 2021 12:36:34p, *Ammammata* ha inviato su
it.comp.aiuto il messaggio
news:XnsACE280492CCamm...@127.0.0.1. Vediamo cosa ha
scritto:

> Il giorno Wed 03 Mar 2021 11:06:27a, *SB* ha inviato su it.comp.aiuto
> il messaggio news:sonu3gl7kgniv0ijg...@4ax.com. Vediamo
> cosa ha scritto:
>
>> Se ti interessa lo cerco.
>>
>
> se lo trovi vedo di adattarlo, grazie
>
>

SumatraPDF

eseguito da linea di comando con appositi parametri

for %f in (*.pdf) do SumatraPDF.exe -print-to-default -print-settings "1"
"%f"

notare:

"1" è il numero della pagina da stampare, ma può essere anche "1-3" oppure
"1,3-6,18"

le virgolette dell'ultimo parametro servono se i nomi dei file contengono
SPAZI o altri caratteri non standard

ci sono ventordici altri parametri da usare per la qualunque:
https://www.sumatrapdfreader.org/docs/Command-line-arguments.html

Ammammata

unread,
Mar 3, 2021, 7:02:04 AM3/3/21
to
Il giorno Wed 03 Mar 2021 12:58:36p, *SB* ha inviato su it.comp.aiuto il
messaggio news:d4uu3g16k035bo1ks...@4ax.com. Vediamo cosa ha
scritto:

>>se lo trovi vedo di adattarlo, grazie
>
> Ecco qui

grazie

mentre provavo e scrivevo le mie prove con sumatra ho visto che è arrivata
anche la tua soluzione

SB

unread,
Mar 3, 2021, 7:25:32 AM3/3/21
to
Il giorno Wed, 3 Mar 2021 12:02:00 -0000 (UTC), Ammammata
<amma...@tiscalinet.it> ha scritto:

>Il giorno Wed 03 Mar 2021 12:58:36p, *SB* ha inviato su it.comp.aiuto il
>messaggio news:d4uu3g16k035bo1ks...@4ax.com. Vediamo cosa ha
>scritto:
>
>>>se lo trovi vedo di adattarlo, grazie
>>
>> Ecco qui
>
>grazie
>
>mentre provavo e scrivevo le mie prove con sumatra ho visto che č arrivata
>anche la tua soluzione

Ho visto, e la tua soluzione č piů semplice, io ai tempi avevo fretta e ho
preferito adattare un altro script che faceva ricorsione simile.


--
ciao
Stefano

Guglielmo

unread,
Mar 3, 2021, 8:31:49 AM3/3/21
to
Il 03/03/2021 13:00, Ammammata ha scritto:

> SumatraPDF

È un bel pezzo di software e la tua esperienza è l'ennesima conferma.

Archaeopteryx

unread,
Mar 3, 2021, 8:55:59 AM3/3/21
to
> � un bel pezzo di software e la tua esperienza �
> l'ennesima conferma.

E' il mio reader alternativo a FoxitReader (rigorosamente
l'ultima versione con interfaccia decente, non la
merdaflat). O l'uno o l'altro a seconda del problema e non
ho mai sentito necessità di altro.


SB

unread,
Mar 3, 2021, 9:04:07 AM3/3/21
to
Il giorno Wed, 3 Mar 2021 14:56:10 +0100, Archaeopteryx
<cor.bonukFANCULOSPAM@libero_NOMAIL_.it> ha scritto:

>> ? un bel pezzo di software e la tua esperienza ?
>> l'ennesima conferma.
>
>E' il mio reader alternativo a FoxitReader (rigorosamente
>l'ultima versione con interfaccia decente, non la
>merdaflat). O l'uno o l'altro a seconda del problema e non
>ho mai sentito necessità di altro.

Anch'io uso Foxit Reader 7.2.8, l'ultima versione prima dei ribbon, oltre a PDF
Xchange viewer e Sumatra, ma non sapevo della possibilità di usarlo dalla linea
di comando.


--
ciao
Stefano

Ammammata

unread,
Mar 3, 2021, 10:17:18 AM3/3/21
to
Il giorno Wed 03 Mar 2021 02:31:48p, *Guglielmo* ha inviato su
it.comp.aiuto il messaggio news:s1o344$gml$2...@dont-email.me. Vediamo cosa ha
scritto:

> È un bel pezzo di software

lo uso esclusivamente per .epub e .cbr/cbz

per i pdf preferisco il già citato xchange viewer che mi mette a
disposizione un po' di semplici strumenti di ritocco

Archaeopteryx

unread,
Mar 3, 2021, 11:18:51 AM3/3/21
to
> Anch'io uso Foxit Reader 7.2.8, l'ultima versione prima
> dei ribbon, oltre a PDF Xchange viewer e Sumatra, ma
> non sapevo della possibilit� di usarlo dalla linea di
> comando.

Infatti che io sappia no; stavo confermando la bontà di
Sumatra dicendo che è uno dei soli due che uso.

SB

unread,
Mar 3, 2021, 12:28:12 PM3/3/21
to
Il giorno Wed, 3 Mar 2021 15:17:13 -0000 (UTC), Ammammata
<amma...@tiscalinet.it> ha scritto:

>Il giorno Wed 03 Mar 2021 02:31:48p, *Guglielmo* ha inviato su
>it.comp.aiuto il messaggio news:s1o344$gml$2...@dont-email.me. Vediamo cosa ha
>scritto:
>
>> È un bel pezzo di software
>
>lo uso esclusivamente per .epub e .cbr/cbz
>
>per i pdf preferisco il già citato xchange viewer che mi mette a
>disposizione un po' di semplici strumenti di ritocco

Io lo uso XChange soprattutto quando mi serve un OCR, ma anche qui mi tocca
usare la vecchia 2.5 perchè nelle ultime versioni funziona peggio, nel senso che
hanno messo qualche opzione a pagamento.

--
ciao
Stefano

Anilos

unread,
Mar 10, 2021, 6:29:01 AM3/10/21
to
SB, il 03/03/2021 alle 15:04 ha scritto:

> Anch'io uso Foxit Reader 7.2.8,

l'ultima volta che l'ho visto si era appesantito?

SB

unread,
Mar 10, 2021, 8:38:15 AM3/10/21
to
No, lo tengo a dieta.

--
ciao
Stefano
0 new messages