I have the first response from my users.
/ *
Hello Otto,
great thank you!
Would it be possible for the first column to be smaller?
So in principle we wouldn't need it at all.
I don't know what the CH actually means. ?
And if you can, the font is larger for the room number, arrival and departure, half board and comments.
We don't need the last 5 columns either (D + T + Aktion + Ki + EW) is above.
* /
The changes are easy.
In the function that decides which columns are printed,
the switches are simply set to "N" for no.
- Code: Select all Expand view RUN
function check4prn( nCol, cCol )
// 1234567890123456
local cPrint := "NJJJJJJJJJJNNNNN"
if substr(cPrint, nCol, 1 ) <> "J"
cCol := ""
endif
return( cCol )
//----------------------------------------------------------------------------//
The styling is done in CSS.
For example the column HP:
.mytd {
border: 1px solid #dddddd;
text-align: center;
padding: 4px;
background: #A4C400;
font-size: 18px;
}
- Code: Select all Expand view RUN
<style>
.mytd {
border: 1px solid #dddddd;
text-align: center;
padding: 4px;
background: #A4C400;
font-size: 18px;
}
.tdname {
font-size: 18px;
border: 1px solid #dddddd;
text-align: left;
padding: 4px;
}
.tdmedium {
font-size: 22px;
border: 1px solid #dddddd;
text-align: left;
padding: 4px;
}
.tdlarge {
font-size: 26px;
border: 1px solid #dddddd;
text-align: left;
padding: 4px;
}
</style>
cText += check4prn( 1, "<td>" + cMarker+ "</td>" + CRLF )
cText += check4prn( 2, "<td class='tdlarge'>" + VRDZiNr + "</td>" + CRLF )
cText += check4prn( 3, "<td class='tdname'>" + convertUmlaute( VRDName ) + "</td>" + CRLF )
cText += check4prn( 4, "<td class='tdmedium'>" + VRDAnAbreise + "</td>" + CRLF )
cText += check4prn( 5, "<td>" +VRDZF + "</td>" + CRLF )
cText += check4prn( 6, "<td>" +VRDZFKi + "</td>" + CRLF )
cText += check4prn( 7, "<td class='mytd'>" + VRDHP + "</td>" + CRLF )
cText += check4prn( 8, "<td>" +VRDHPKi + "</td>" + CRLF )
cText += check4prn( 9, "<td>" +VRDVP + "</td>" + CRLF )
cText += check4prn( 10, "<td>" +VRDVPKi + "</td>" + CRLF )
cText += check4prn( 11, "<td class='tdname'>" +convertUmlaute(VRDBErmerkung) + "</td>" + CRLF )
cText += check4prn( 12, "<td>" +VRDEW + "</td>" + CRLF )
cText += check4prn( 13, "<td>" +VRDKi + "</td>" + CRLF )
cText += check4prn( 14, "<td>" +VRDAktion + "</td>" + CRLF )
cText += check4prn( 15, "<td>" +VRDD + "</td>" + CRLF )
cText += check4prn( 16, "<td>" +VRDT + "</td>" + CRLF )
LG
Otto
