需要列印 a4標籤貼紙 ，
已經有 mx517 跟 p215b 都是下方進紙 ， 有時會進不了紙
所以打算買個 後方進紙的純印表機來專門印標籤貼紙
跟賣標籤貼紙的先生詢問過 說後方進紙的印表機 比較不會有無法進紙的情況發生
他推薦 epson系列
因為我只需要純列印功能
所以原本選定 epson l120 or l310
後來又看到 Canon g1000 也是不錯的選擇
所以想請大大指點
主要那來印標籤貼紙的話
該選哪個好？
兩個牌子都有多買一組墨水 可研究包固至 兩年 看起來 似乎不錯
延長保固 有用嗎？ 是否有必要？
謝謝
標籤機暫不考慮 萬元機不符合我使用的頻率 。
廠商建議三萬起跳的標籤機
排版程式要額外付費
耗材有一筆錢
不如買標籤貼紙 自己排版 自己印
有關qrcode, 客戶要求 標籤貼紙內要有qrcode
目前 我用excel排版
用qrcode 產生程式 產生儲存成jpg後
在excel指位置貼上
這樣的做法 超廢工的
不知道有沒有方法可以 自動抓excel欄位資料後 生成qr codejpg貼在指定位置
附檔是客戶要求範例(客戶政策導入qr code)
a4是因為沒有買標籤機下 買a4標籤貼紙回來自己排版 自己列印
a4只可以列印12張 貼紙的規格大約是 10.5*4.95
如果要購買標籤機 廠商使用的是TOSHIBA機台型號：TEC B-EC4-T
如果要購買箱同等機的標籤機 怕是要3-4萬塊以上
排版軟體要跟廠商協調 應該需要付費
色帶 標籤貼紙都是筆耗材費
主要是工廠很小
這家客戶的訂單也越來越少
所以拿不定主意單獨為了這家客戶購買標籤機
所以暫時 先自己用excel排版列印
等到這家客戶的訂單要是變多了 穩定了
有足夠利潤盈餘下 要購買標籤機來簡化作業流程
當然是最方便的
alexis8351 wrote:
請問你一張標簽貼紙...(恕刪)
mikeok6336 wrote:
alexis8351...(恕刪)
一檯三 四萬 還要紙材給廠商賺 ,還要賺排版軟體 真是黑心啊！！而且我查過這一檯標簽機在台灣並沒有,資訊沒有很透明之下 ,加上你又不懂當然會被當肥羊宰....
你的問題很好解決,你目前的方法很費工,為了要解決效率的問題,還要要買標簽機,不過你提供你的尺寸給我,我就建議一些想法希望能幫你解決
https://www.youtube.com/watch?v=zjyv8UskX1E
這段影片你先看看
不過這一檯標簽機最寬的尺寸是102mm,也就是10.2cm,長度方面可以自行設定長度不用擔心,有專屬的編輯軟體,支援任何條碼 和QR CODE,可以連結資料庫和excel排版,由於公司貨賣得很好,現在外面水貨一堆價格又便宜...耗材部分也有公司貨和副場標簽帶.....
如果有要任何咨詢,可以私下問我！！
EXCEL需作一些設定
底下的教學網址，大致上就是可以在excel建立一個按扭元件
在欄位輸入好資料，按下按鈕，就可直接產生QRCODE
https://www.youtube.com/watch?feature=player_detailpage&v=mzRn0XDF9Bg
影片中需要用到的程式碼和一些設定
1.先到這個網址下載StrokeScribe Barcode ActiveX control元件，並安裝到電腦
https://strokescribe.com/en/download.html
2.再按教學影片步驟，EXCEL要貼上簡易CODE，請參考這個網址
https://strokescribe.com/en/qr-code-excel-word-csharp-javascript.html#qr-code-excel
頁面的Bulk QR code generation in Excel這段文章下面框框內這段程式碼，當然還有其它程式碼，看您要哪個功能
這段CODE的作用大概就是：於欄位A輸入資料，再點下按鈕，QRCODE會產生於欄位B
按教學影片將CODE貼在EXCEL裡
------------------------------------------------
Dim wsh As Worksheet
Set wsh = Application.ActiveSheet 'QR codes are generated on the active worksheet
Dim shp As Shape
For Each shp In wsh.Shapes 'Deletes all barcode pictures which are generated previously
If shp.Type = msoPicture And InStr(shp.Name, "BarcodePicture") > 0 Then
shp.Delete
End If
Next
Dim ss As StrokeScribeClass 'Invisible COM server
Set ss = CreateObject("STROKESCRIBE.StrokeScribeClass.1")
ss.Alphabet = QRCODE
pict_path = Environ("TEMP") + "\bar.wmf" 'A temporary file for pictures
Row = 1
Do
Dim data As String
data = wsh.Cells(Row, 1) 'Data for barcodes is taken from the first column
If Len(data) = 0 Then Exit Do 'The code will stop execution on first empty cell occurrence
ss.text = data
rc = ss.SavePicture(pict_path, WMF, 1440, 1440) 'A 1x1 inch QR Code is stored in a temporary file. 1440 TWIPs=1in.
If rc > 0 Then 'Reports the error if SavePicture() call was unsuccessful
MsgBox ss.ErrorDescription
Exit Do
End If
Set qrcode_cell = wsh.Cells(Row, 2) 'The cell where the QR Code will be placed
'The rectangle which fits into the cell. QR codes are square in shape.
qrcode_size = Application.Min(qrcode_cell.Width, qrcode_cell.Height)
'Barcode picture is loaded from file and centered in the cell:
Set shp = wsh.Shapes.AddPicture(pict_path, msoFalse, msoTrue, _
qrcode_cell.Left + (qrcode_cell.Width - qrcode_size) / 2, _
qrcode_cell.Top + (qrcode_cell.Height - qrcode_size) / 2, _
qrcode_size, qrcode_size)
'Each picture is named as BarcodePictureN, where N is 1,2,3...
'So the pictures can be easily removed next time
shp.Name = "BarcodePicture" & Format(Row)
Row = Row + 1 'Going to the next worksheet row
Loop
Kill pict_path 'We don't need the temporary picture file any more
Set ss = Nothing 'Deletes the barcode COM object
-------------------------------------------------------------
3.再照這個頁面教學
https://strokescribe.com/en/vba-ole-object-add-reference.html
將StrokeScribe ActiveX control module 框框打勾
和StrokeScribe Class 框框打勾
按鈕才能正常運作
4.再按照教學影片操作
實作
內文搜尋
從 APP 打開
X