標籤紙列印問題

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-7-2 13:21 | 只看該作者

詳細說明如附件，很謝謝大家的幫忙![attach]1610[/attach]

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-7-2 18:09 | 只看該作者

回復 1# child

Sub Ex()
Dim i&, R As Range, Y%
i = 2: Y = 1
With Sheet2
Do While .Cells(i, "b") <> ""
Set R = .Cells(i, "b")
With Sheet1.Cells(i - 1, Y)
.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)
.ColumnWidth = 33
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.IndentLevel = 1
End With
If Y = 3 Then
Y = 1: i = i + 1
Else
Y = Y + 1
End If
Loop
End With
Sheet1.PrintOut
End Sub

複製代碼

3^#

發表於 2010-7-3 00:13 | 只看該作者

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

靜思自在 : 多做多得。少做多失。