Board logo

標題: 標籤紙列印問題 [打印本頁]

作者: child    時間: 2010-7-2 13:21     標題: 標籤紙列印問題

詳細說明如附件,很謝謝大家的幫忙![attach]1610[/attach]
作者: GBKEE    時間: 2010-7-2 18:09

回復 1# child
  1. Sub Ex()
  2.     Dim i&, R As Range, Y%
  3.     i = 2: Y = 1
  4.     With Sheet2
  5.         Do While .Cells(i, "b") <> ""
  6.            Set R = .Cells(i, "b")
  7.             With Sheet1.Cells(i - 1, Y)
  8.                 .Value = R & Chr(10) & R(1, 2) & R(1, 3) & R(1, 4) & Chr(10) & Chr(10) & R(1, 5) & Space(20) & R(1, 6) & "收" & Chr(10)
  9.                 .ColumnWidth = 33
  10.                 .Borders.LineStyle = xlContinuous
  11.                 .HorizontalAlignment = xlLeft
  12.                 .VerticalAlignment = xlCenter
  13.                 .IndentLevel = 1
  14.              End With
  15.             If Y = 3 Then
  16.              Y = 1: i = i + 1
  17.             Else
  18.                 Y = Y + 1
  19.             End If
  20.         Loop
  21.     End With
  22.     Sheet1.PrintOut
  23. End Sub
複製代碼

作者: child    時間: 2010-7-3 00:13

謝謝GBKEE 版主的幫忙,感激不盡^^




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)