Attaching variable graph to PDF

var Check = RenderChart.value
if (Check eq "true") then
var Factor
var MaxInput = Max(Input.Table.ChartValues[*].Col[*].Amount)
var Fmin
var Fmax
for f = 0 upto 9950 step 50 do
Fmin = f
Fmax = Fmin + 50
if (Within(MaxInput, Fmin, Fmax) eq 1) then
Factor = 1 / (Fmax / 100)
endif
endfor
 
var nRows = Input.Table.ChartValues.instanceManager.count
var nColumns = Input.Table.ChartValues[nRows -1].Col.instanceManager.count
_Chart.setInstances(nColumns + 1)
 
var GraphValue
var GraphLabel
var PrevGraphValue
var GraphDiff
var LineStart
var ContainerHeight
var Offset
 
for R=0 upto nRows -1 step 1 do
for C=0 upto nColumns -1 step 1 do
Chart[C].layout = "tb"
Chart[C]._Line.setInstances(nRows)
Chart[C]._Label.setInstances(nRows)
Chart[C].layout = "position"
ContainerHeight = UnitValue(Chart[C].hLines.h, "in")
Chart[C].Line[R].y = ContainerHeight
GraphValue = Input.Table.ChartValues[R].Col[C].Amount
Chart[C].Line[R].presence = "visible"
Chart[C].Label[R].presence = "visible"
Chart[0].Line[R].presence = "invisible"
 
if(C eq 0) then
PrevGraphValue = 0
LineStart = ContainerHeight
else
PrevGraphValue = Input.Table.ChartValues[R].Col[C-1].Amount
LineStart = UnitValue(Chart[C-1].Line.LineGraph.y, "mm")
endif
 
for y = 10 downto 0 step 1 do
Output.yAxis.Mark[y].Mark.value.text.value = Round((10 - y) * 10 / Factor)
endfor
 
var nColor = Choose(R+1, ;Instance (+1) = position in this list
"238,0,0", 
"255,99,71", 
"255,127,80", 
"255,140,0", 
"255,165,0", 
"255,215,0", 
"255,255,0", 
"238,238,0", 
"154,205,50", 
"69,139,0", 
"0,139,0", 
"0,139,69", 
"69,139,116", 
"82,139,139", 
"0,139,139", 
"0,134,139") 
 
Chart[C].Line[R].LineGraph.value.line.edge.color.value = nColor
Input.Table.ChartValues[R].Color.Color.value.rectangle.fill.color.value = nColor
 
GraphDiff = GraphValue - PrevGraphValue
Chart[C].Line[R].LineGraph.h = UnitValue(Abs(GraphDiff), "in") / 25.4 * Factor
Chart[C].Label[R].LineValue.value.text.value = GraphValue
GraphLabel = Input.Table.ChartValues[R].Label
Chart[C].Label[R].LineValue.assist.toolTip.value = GraphLabel
 
if(GraphDiff >= 0) then
Chart[C].Line[R].LineGraph.value.#line.slope = "/"
else
Chart[C].Line[R].LineGraph.value.#line.slope = "\"
endif
 
if(c eq 0) then
Offset = ContainerHeight - UnitValue(Abs(GraphDiff), "in") / 25.4 * Factor
Chart[C].Line[R].y = Offset
Chart[C].Label[R].y = Offset
else
if(GraphDiff >= 0) then
Offset = ContainerHeight - GraphValue / 25.4 * Factor
Chart[C].Line[R].y = Offset
Chart[C].Label[R].y = Offset
else
Offset = ContainerHeight - (GraphValue + Abs(GraphDiff)) / 25.4 * Factor
Chart[C].Line[R].y = Offset
Chart[C].Label[R].y = ContainerHeight - (GraphValue / 25.4) * Factor
endif
endif
endfor
endfor
endif
RenderChart.value = "false"