[Risolto]Problema con PdfWriter errore alle linea 3143

[Diakrufus]

Ciao, sto cercado di capire come funziona la stampa con la classe PdfWriter e seguendo l'esempio messo su Guida ai report dopo aver creato la sotto classe come nell'esempio e creando la funzione data

Codice: [Seleziona]

PUBLIC SUB Data()
  
  ME.AddPage()
  ME.Bookmark("Page - 1")
  ME.SetFont("Arial", " ", 10)
  ME.Cell(20, 6, "No", TRUE, 1, "C", FALSE)
  
  
END

poi in un form con un pulsante ho messo questo

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

  
  DIM hStampa AS Process
  DIM pdf AS FTest
  RANDOMIZE 
  pdf = NEW FTest("Portrait", "mm", "A4")
  pdf.Open()
  pdf.AliasNbPages()
  pdf.Data
  pdf.Output(User.Home & "/report.pdf", FALSE) ' qua viene creato il file pdf
  hStampa = SHELL ("evince " & User.Home & "/report.pdf")

END

ho il seguente errore quando compilo Unknow identifer: Compress alla linea 3143 in PdfWriter

Poi se cambio il codice così

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

  
  DIM hStampa AS Process
  DIM pdf AS FTest
  RANDOMIZE 
  pdf = NEW FTest("Portrait", "mm", "A4")
  pdf.Open()
  pdf.AliasNbPages()
  pdf.Data
  pdf.Output(User.Home & "/report.pdf", FALSE) ' qua viene creato il file pdf
 ' hStampa = SHELL ("evince " & User.Home & "/report.pdf")
hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT " ' qua lo mandiamo in stampa"

END

non capisco perchè in automatico mi da le " finali al commento ' qua lo mandiamo in stampa", comunque la cosa che non capisco e perchè mi da un altro diverso errore quando lo compilo che è questo Missing ')' alla linea 16 in TestPdf

[milio]

Devi abilitare il componente gb.compress

[doublemm]

per quando riguarda compress hai controllato se sul menù di gambas PROGETTO - PROPRIETA' - COMPONENTI gb.compress sia attivato?

[Diakrufus]

Devi abilitare il componente gb.compress

Ok gb.compress l'ho attivato compila ma quando lo eseguo al click della anteprima

Codice: [Seleziona]

PUBLIC SUB stampa()
  DIM hStampa AS Process
  DIM pdf AS FTest
  RANDOMIZE 
  pdf = NEW FTest("Portrait", "mm", "A4")

mi da un altro errore Too many argumentes

Mentre se compilo senza anteprima di stampa

Codice: [Seleziona]

 hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa

mi da l'errore Missing ')'  alla linea 13 in Ftest.class ( sembra che richiede un' altra Parentesi tonda ma dove la vuole se il comando è già chiuso nelle  due parentesi? 

[Golia]

Puoi postare il modulo Ftest?

[Diakrufus]

Puoi postare il modulo Ftest?

Eccolo

Codice: [Seleziona]

PUBLIC SUB stampa()
  DIM hStampa AS Process
  DIM pdf AS FTest
  RANDOMIZE 
  pdf = NEW FTest("Portrait", "mm", "A4")
  pdf.Open()
  pdf.AliasNbPages()
  pdf.Data
  pdf.Output(User.Home & "/report.pdf", FALSE) ' qua viene creato il file pdf
  hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa
 ' hStampa = SHELL ("acroread " & User.Home & "/report.pdf")

END





PUBLIC SUB Button1_Click()

  stampa

END

Metto pure la sottoclasse

Codice: [Seleziona]

' Gambas class file

INHERITS PdfWriter
PUBLIC SUB Header()
  ME.SetX(0)
  ME.SetY(5)
  ME.SetFont("Arial", "BI", 20)
  ME.Cell(160, 6, "Rubrica", FALSE, 0, "L", FALSE)
  ME.SetLineWidth(0.2)      
  ME.Line(10, 17, 200, 17)
END


PUBLIC SUB _free()
END



'Page footer
PUBLIC SUB Footer()
  
END
 
 PUBLIC SUB Data()
  
  
  
  
END

[doublemm]

hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa

è sbagliata de mettere una &

hStampa = SHELL ("lpr " & User.Home & "/report.pdf") WAIT  ' qua lo mandiamo in stampa

[Golia]

Ciao, il tuo codice và bene
Forse ti ho messo confusione io, FTest deve essere una classe e non un modulo, e con

INHERITS PdfWriter

diventa una sottoclasse di pdfwriter.
L'errore che ha visto doublemm è giusto, prova a correggerlo che dovrebbe funzionare

[Diakrufus]

hStampa = SHELL ("lpr " & User.Home "/report.pdf") WAIT  ' qua lo mandiamo in stampa

è sbagliata de mettere una &

hStampa = SHELL ("lpr " & User.Home & "/report.pdf") WAIT  ' qua lo mandiamo in stampa

Ok ho messo la & al suo posto, compila ma quando cerco di mandare in stampa alla riga 8 ed esattamente qua

Codice: [Seleziona]

pdf = NEW FTest("Portrait", "mm", "A4")

mi da questo errore
Too many argumentes.
Io sto seguendo l'esempio che c' è sul WIKI Guida al Report. Evidentemente chi ha creato l'esempio   ha commesso qualche svista. Per capire come funziona questa classe PdfWrite. Puoi postarmi qualche esempio, per capire come diavolo mandare in stampa qualcosa. visto che nell'esempio che c'è sulla classe va tutto in stampa sul monitor e non sulla stampate.

[Golia]

L'esempio l'ho fatto io...prenditela con me 
Ho provato il tuo codice e funziona.
Pdfwriter non manda niente in stampa, crea solo un file pdf.
Con la shell usando il comando lpr si manda in stampa il file pdf.
Ti mando un esempio di pdfwriter casomai stasera provo a guardare meglio. Ho riportato nell'esempio il tuo codice e funziona. vedi bottone diakrufus
ciao fammi sapere

l'esempio è per G2

[Diakrufus]

L'esempio l'ho fatto io...prenditela con me 
Ho provato il tuo codice e funziona.
Pdfwriter non manda niente in stampa, crea solo un file pdf.
Con la shell usando il comando lpr si manda in stampa il file pdf.
Ti mando un esempio di pdfwriter casomai stasera provo a guardare meglio. Ho riportato nell'esempio il tuo codice e funziona. vedi bottone diakrufus
ciao fammi sapere

l'esempio è per G2

Grazie il tuo esempio e ottimo mi piace tanto è ho visto che il codice nel bottone diakrufus funziona bene. Sai una cosa se lo ricopio  nel mio esempio mi da sempre l'errore Too many argumentes. strano vero? Comunque adesso che ho il tuo esempio rifaccio tutto, ma prima mi studio il tuo sorgente Ciao 

[Diakrufus]

Rifatto il progetto con lo steso codice adesso funziona Ok Grazie a tutti per l'aiuto adesso  posso esercitarmi con questa ottima classe.Però che strano ho dovuto rifare il progetto ma!!!!

[Golia]

Bene