StrokeScribe1.Alphabet = CODE39 ‘This code will output CODE 39 barcodes Printer.ScaleMode = vbMillimeters bar_w = 35 ‘Barcode width, 35mm bar_h = 20 ‘Barcode height, 20mm page_w = 40 ‘Page width page_h = 45 ‘Page height Dim ID, Barcode, Artikel, kode_warna, Warna, Ukuran ID = rs_barcode.Fields(“id”) Barcode = rs_barcode.Fields(“barcode”) Dim rstSearch As ADODB.Recordset Set rstSearch =