I am new in Xojo.
I am working with Barcode printing using code given below.
what I need is How to Scale Barcode?
dim z as new BarcodeGeneratorMBS z.Symbology = type z.Encode text dim r as ZintRenderMBS = z.Render const factor = 1.5 dim px as Double = 200 dim py as Double = 40//pic.Height call pdf.SetFillColor 0 call pdf.SetStrokeColor 0 dim lines() as ZintRenderLineMBS = r.lines dim hexagons() as ZintRenderHexagonMBS = r.hexagons dim rings() as ZintRenderRingMBS = r.rings dim strings() as ZintRenderStringMBS = r.strings if UBound(strings)>=0 then for each s as ZintRenderStringMBS in strings dim x as Double = s.x*factor + px dim y as Double = s.y*factor + py dim f as Double = s.FontSize * factor * 0.7 call pdf.SetFont("Helvetica", pdf.kfsCondensed, f) dim textLen as Double = pdf.GetTextWidth(s.Text) x = x - textLen/2.0 y = y - f * 0.4 call pdf.WriteText(x,y,s.Text) next end if if UBound(rings)>=0 then break end if if UBound(lines)>=0 then for each line as ZintRenderLineMBS in lines dim x as Double = line.x*factor + px dim y as Double = line.y*factor + py dim w as Double = line.Width *factor + 0.1 dim h as Double = line.Length*factor + 0.1 call pdf.Rectangle(x, y, w, h, pdf.kfmFill) next end if if UBound(hexagons)>=0 then break end if
My barcode String is 17-digits long . After print report barcode is too long more than half of A4 size paper width.
I want to make barcode with smaller width .