PureBoard

Verfasst: **26.06.2019 15:05**

Ein heißes Hallo (36°C Außentemperatur)

Ich versuche bei der Ausgabe von Text in einer "PDF Zelle"/"PDF Multi Zelle" einige Worte in Fettschrift auszugeben. Da habe ich gerade mal keine Idee wie man das verwirklichen kann.
ich verwende das Modul von Lucky Luke / ABBKlaus normeus.
(Die Modulumsetzung von Thorsten1867 ist zwar noch nicht umgesetzt wäre aber kein Problem.)

vielleicht hat einer eine Idee.?

Verfasst: **26.06.2019 15:59**

Jedes Wort muss eine eigene Zelle bekommen und davor muss jeweils der Zeichensatz geändert werden.
Die Zellen werden dann aneinandergereiht.

Verfasst: **26.06.2019 16:06**

OK, erst mal vielen Dank für die Info.

Aber wie sieht es dann bei längerem Text mit Blocksatz aus. Die Multi_Cell ist da ja sehr komfortabel..

Edit 01.07.2019

Meine Lösung mit dem Umbruch sieht wie folgt aus:

Code: Alles auswählen

XIncludeFile "pbPDFModule.pbi"

#PDFFile = 1

Procedure   PDFFooter_Module()
  PDF::SetPosY(#PDFFile,-15)
  PDF::SetFont(#PDFFile,"Helvetica","I",9)
  PDF::Cell(#PDFFile,"Seite  {p} / {tp}",#PB_Default,10,0,0,PDF::#CenterAlign)
  PDF::Ln(#PDFFile,6)
  PDF::SetFont(#PDFFile,"Helvetica","I",4)
  PDF::Cell(#PDFFile,"( © <Name> 2019 )  <Complete footer information> ",#PB_Default,10,0,0,PDF::#CenterAlign)
EndProcedure

Procedure runPDF()
  Protected i.i
  PDF::SETFont(#PDFFile,"Helvetica","",10) 
  PDF::FooterProcedure(@PDFFooter_Module())
  PDF::Create(#PDFFile,"P")
  PDF::SetAliasTotalPages(#PDFFile,"{tp}")
  PDF::EnableFooter(#PDFFile,#True)
  PDF::SetPageNumbering(#PDFFile,#True)
  PDF::AddPage(#PDFFile)
  PDF::SetPosX(#PDFFile,10)
  For i = 33 To 1000
    PDF::Cell(#PDFFile,Chr(i),PDF::GetStringWidth(#PDFFile,Chr(i)),5,0,0,PDF::#LeftAlign) 
    If PDF::GetPosX(#PDFFile) > (PDF::GetPageWidth(#PDFFile) - 20)    ;Zeilenumbruch am rechten Rand
      PDF::Ln(#PDFFile,5)
      PDF::SetPosX(#PDFFile,10)
    EndIf
  Next
  PDF::AddPage(#PDFFile)
  PDF::Close(#PDFFile,"Savepdftest.pdf")
  PDF::Save(#PDFFile,"Savepdftest.pdf")
  RunProgram("Savepdftest.pdf")
EndProcedure

runPDF()

Zur Anwendung kam hier die pbPDFModule.pbi von Thorsten. (Download s.o.)
An dieser Stelle noch mal vielen Dank für Deine Arbeit.

PureBoard

[Gelöst] Einzelne Worte in PDF fett drucken

[Gelöst] Einzelne Worte in PDF fett drucken

Re: Einzelne Worte in PDF fett drucken

[Gelöst] Einzelne Worte in PDF fett drucken