Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare PDF A4 in A3

Ho un'applicazione VB6 che genera dei PDF in A4 e poi per varie
esigenze li deve stampare in A4 o A3 a seconda dei casi. Per la stampa
uso Acrobat Reader via DDE e tutto funziona se si deve stampare in A4
ma se devo fare il resize ad A3 esce il foglio A3 ma con la stampa in
A4. Reader è impostato per adattare la stampa alla pagina, la
stampante è impostata per stampare in A3 di default (ho due stampanti
impostate nell'applicazione una A4 e una A3) e la stampa diretta dal
Reader stampa correttamente ma dall'applicazione o selezionando il
file da explorer e facendo tasto destro->Stampa il risultato è sempre
errato.
 
Qualche idea?
 
Grazie, ciao
 
Fritz
Ciao
 
-- 
Fritz
 
Togli *ERASE* per rispondere in e-mail.

 errato.
 
Io ho il problema opposto al tuo (A3 da stampare in A4).
Temo proprio che "adatta" entri in gioco solo quando la stampa
viene eseguita direttamante da Acrobat.
Io sul mio foglio A4 mi ritrovo solo un pezzo del disegno A3 quando
stampo "dall'esterno"
Saluti
 
Sauro
 
. 
 
 

 stampo "dall'esterno"
 
Per entrambi: perché via DDE e non invece usando l'OCX
(OK, è una .dll) del Reader direttamente nel programma ?
Non è necessario che sia visibile, tra l'altro.
A quel punto funziona così:
 
Private Sub Command1_Click()
     ' Carica il file
     AcroPDF1.LoadFile "c:\unfile.pdf"
     ' stampa così com'è
     AcroPDF1.printPages 1, 1
     ' stampa ridimensionando al formato pagina
     AcroPDF1.printPagesFit 1, 1, True
End Sub
 
Bye, G.

 Bye, G.
 
Bello.
 
Grazie Paperino
Sauro 
 
 


Mah, nell'applicazione ho due modalità, dipende se sulla macchina c'è
Acrobat Full uso l'automation, altrimenti uso DDE per stampare con il
reader in modo che sia indipendente dalla versione. Come funzionerebbe
l'ocx? Nel senso dove lo trovo e come lo incorporo?
 
Grazie, ciao
 
Fritz


Ho posto il quesito anche sul forum Adobe ma non mi ha cacato nessuno
per ora, certo che è una bella ciulata :-/.
 
Ciao
 
Fritz

 l'ocx? Nel senso dove lo trovo e come lo incorporo?
 
Come un qualunque altro OCX: se c'è il reader
installato lo trovi nel menu progetto, lista
"componenti". Il nome dovrebbe essere "Adobe
Acrobat [qualchecosa] Browser type library".
Il riferimento (ma non dovrebbe interessarti,
comunque, perché è un problema del S.O.,
non tuo) è al file AcroPdf.dll.
Potresti avere problemi solo nelle versioni
vecchissime del reader, ma intendo quelle
4.0 o 5.0. Siamo alla 10, quindi...
Lo spunti, ti appare nella barra componenti
e lo aggiungi come qualunque altro OCX.
 
Aggiungo un particolare: *credo*, ma ripeto:
*credo*, non ne sono sicuro, che anche nella
versione full sia compreso il file. Perlomeno,
ho un programma che gira su una marea di PC
e che lo usa; la maggior parte di questi,
con Windows 7, hanno Acrobat full preinstallato,
e non mi risulta di aver dovuto installare
il Reader per far funzionare il mio programma.
 
Bye, G. 
 
 

 Bye, G.
 
Ok, grazie appena torno al lavoro faccio qualche prova.
 
Ciao
 
Fritz

4.0 o 5.0. Siamo alla 10, quindi...
 
Mi sa anche con le versioni nuove:
 
http://forums.adobe.com/thread/669669
 
 
Ho installato l'8.3 ma non va una mazza lo stesso, la procedura viene
eseguita senza errori ma nessuna stampa esce e rimane il reader in
memoria :-/, questa � la funzione che ho implementato:
 
Public Sub StampaFileReaderOCX(sFile As String)
 
    Dim aPDF As AcroPDF
 
    Set aPDF = CreateObject("AcroPDF.PDF")
 
    aPDF.LoadFile sFile
 
    aPDF.printPagesFit 1, 1, True
 
    Set aPDF = Nothing
 
End Sub
 
Idee?


    Set aPDF = CreateObject("AcroPDF.PDF")
 
OK, ora la domanda č: perché ?
Voglio dire, č cosě difficile caricarlo come
componente, che lo vuoi caricare a runtime ?
 
Bye, G.
 
 
 
 

    Set aPDF = CreateObject("AcroPDF.PDF")
 


Il Tue, 10 Jan 2012 23:52:32 +0100, "Paperino"
<non...@lo.dico.invalid> ha scritto:

Mi sembra piů pulito, oltretutto la funzione di stampa č in un modulo,
il componente dovrei piazzarlo su una form che non c'č o su una
fittizia per poi passare il riferimento alla funzione.


 fittizia per poi passare il riferimento alla funzione.
 
OK.
Allora, nei riferimenti del progetto devi spuntare
il riferimento ad "Adobe Acrobat Browser Control
type library...", poi nella sub dovrebbe bastare
questa roba:
 
Dim pdf1 As New AcroPDF
pdf1.LoadFile "c:\arturo.pdf"
pdf1.printquellocheera
eccetera.
 
Bye, G. 
 
 

eccetera.
 
Ok, oggi provo
