Report con PdfWriter

[doublemm]

Ciao,
Apri la classe Pdfwriter e alle righe.. circa 260, trovi questo

Codice: gambas [Seleziona]

  CASE "a3"
    $fwPt = 841.89
    $fhPt = 1190.55
  CASE "a4"
    $fwPt = 595.28
    $fhPt = 841.89
  CASE "a5"
    $fwPt = 420.94
    $fhPt = 595.28
  CASE "letter"
    $fwPt = 612
    $fhPt = 792
  CASE "legal"
    $fwPt = 612
    $fhPt = 1008

Ci aggiungi un case con la misura da te desiderata, poi

Codice: gambas [Seleziona]

New ClassStampaOrdine("Portrait", "mm", "NUOVOCASE")

nella mia classe pdfwriter il codice l'ho trovato così

Codice: gambas [Seleziona]

  Case "in"
    $k = 72
  Default 
    Error.Raise("Incorrect unit: " & unit)
  End Select 
  'Page format
  ' SELECT CASE Lower(form)
  ' CASE "a3"
  '   $fwPt = 841.89
  '   $fhPt = 1190.55
  ' CASE "a4"
  '   $fwPt = 595.28
  '   $fhPt = 841.89
  ' CASE "a5"
  '   $fwPt = 420.94
  '   $fhPt = 595.28
  ' CASE "letter"
  '   $fwPt = 612
  '   $fhPt = 792
  ' CASE "legal"
  '   $fwPt = 612
  '   $fhPt = 1008
  ' DEFAULT 
  '   Error.Raise("Unknown page format: " & form)
  ' END SELECT 
  ' $fw = $fwPt / $k
  ' $fh = $fhPt / $k
  $pageFormats = New Collection
  $pageFormats.Add([841.89, 1190.55], "a3")
  $pageFormats.Add([595.28, 841.89], "a4")
  $pageFormats.Add([420.94, 595.28], "a5")
  $pageFormats.Add([612, 792], "letter")
  $pageFormats.Add([612, 1008], "legal")
  $pageFormats.Add([207.12, 368.85], "citizen")  
  size = _getpageformat(form)
  If (IsNull(size)) Then 
    Error.Raise("Unknown page format: " & form)
  End If

naturalmente il formato citizen l'ho aggiunto io

[TheSim1965]

Magari si era capito ma le misure sono espresse in punti tipografici (1/72") quindi per avere le misure in cm la formuletta è: <valore> / 72 * 2.54

Ciao e Buon Lavoro!

[Golia]

Ciao a tutti
In questi giorni ho avuto modo di riguardarmi questo progetto, e con il consiglio dell'amico Picavbg ho aggiunto un'altro esempio con "Multicell".
Ho rifatto tutto tranne i vecchi esempi e naturalmente Pdfwriter, che però ho un pò ritoccato (spero che Md9327 non me ne voglia e spero anche che mi legga).
L'unica modifica sostanziale, che se qualcuno importa la classe Pdfwriter nel proprio progetto con report fatti precedentemente, è la funzione "Multiriga" che avevo fatto io all'epoca e che a MD non piaceva il nome  . L'ho rinominata "Multicol" visto che effettivamente va a creare colonne....
Comunque basta SOLO rinominare  >Multiriga< con >MultiCol<
Ho rimodernato l'anteprima di stampa "PrintPdf".
Comunque il report d'esempio da guardare è sempre quello di MD, 24 pagine di esempi con testi disegni colori e barcode.
Spero vi possa essere utile 

[Golia]

Versione di oggi
Sostituito il componete gb.pdf con gb.poppler.
Quindi il form per l'anteprima del file (Printpdf) è stato cambiato, il resto funziona come prima