Bravo andy, così mi fai sapere se funzia.
devo capire come risolvere sta cosa:
1. una sola form (Fpdf) con cui visualizzare più report
2. piu' report dove variano header,footer e data
Per centralizzare il tutto dove realizzo la funzione che discrimina tra i vari report? In FPdf? Con g2 avevo la funzione data nella classe relativa al singolo report , ad esempio:
Public Function Data(myid As Integer, mynome As String)
....
in g2 chiamavo cosi' il report passando dei parametri:
PUBLIC SUB btUserPrint_Click()
DIM hStampa AS Process
DIM pdf AS cAtleta
RANDOMIZE
pdf = NEW cAtleta("Portrait", "mm", "A4")
pdf.Open()
pdf.AliasNbPages()
pdf.Data(CInt(current_daily.text), UCase$(txtFirstname.text) & " " & UCase$(txtLastname.text))
pdf.Output(User.Home & "/reportAtleta.pdf", FALSE)
hStampa = SHELL ("evince " & User.Home & "/reportAtleta.pdf")
END
in g3:
Public Sub btUserPrint_Click()
Dim $sDir As String
Dim hStampa As Process
$sDir = Application.Path
$pdf = New CPdfWriter(CPdfOrientation.Portrait, CPdfUnit.Millimeters, CPdfPage.A4) As "Pdf"
$pdf.SetMode(CPdfWriter.Event)
$pdf.SetAuthor("Andrea Bertini")
$pdf.SetCreator(Application.Name & " " & Application.Version)
$pdf.SetSubject("test")
$pdf.SetTitle("test")
$pdf.SetDisplayMode("fullpage")
$pdf.Open()
$pdf.SetAliasNbPages()
Data(CInt(current_daily.text), UCase$(txtFirstname.text) & " " & UCase$(txtLastname.text))
$pdf.Output(CPdfOutput.File, $sDir &/ "test.pdf")
hStampa = Shell ("evince " & $sDir &/ "test.pdf")
End
$pdf.SetDisplayMode("fullpage")
invece di fullpage cosa posso mettere per una visuale minore?
grazie....se uso evince basta dare il comando
hStampa = Shell ("evince -w " & $sDir &/ "test.pdf")
per una visualizzazione inferiore. La cosa 'comica è questa: se volessi fare una funzione che mi cerca in una tabella il visualizzatore pdf predefinito (campo testo) e mi restituisce la stringa del programma:
function VisualizzatoreDefault(myid as integer) as string
...
end function
se do' il comando:
hStampa = Shell (VisualizzatoreDefault & $sDir &/ "test.pdf")
escono 3 finestre pdf, due con errore e una giusta
Dammi il codice dove identifichi il visualizzatore...
Public Function LettorePdf(myid As Integer) As String
Dim myconn As New Connection
Dim myset As Result
Dim temppdf As String
With myconn
.Name = mLibs.CartellaDiLavoro &/ "data/myBlog.db"
.Type = "sqlite3"
.Open
End With
myset = myconn.Exec("select * from tbOptions where idoption=&1", myid)
temppdf = myset!pdfprogram
myconn.Close
Return temppdf
End
la stringa archiviata nel record 1 è: evince -w