vlookup一次全部列印 - Excel程式區

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

1^# 跳轉到 »

發表於 2011-5-27 07:17 | 顯示全部帖子

回復 1# energy318122
"但是列印時我想要一次就可以列印全部所有人，而不是一筆一筆叫出來印，也不想重複表格列印！"
而不是手動一筆一筆叫出來印對嗎? 要附檔上來說清楚

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2011-5-27 11:41 | 顯示全部帖子

回復 4# energy318122

Sub Ex()
Dim R As Range
With Sheets("工作表2")
For Each R In Sheets("工作表1").Range("A2:E10").Rows
.Range("A2:E2") = R.Value
.PrintOut
Next
End With
End Sub

複製代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 2011-12-19 17:15 | 顯示全部帖子

回復 6# trainee
若一頁需列印十個記錄，分二欄五列附上範例看看!

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 2011-12-20 15:51 | 顯示全部帖子

回復 8# trainee

Sub Ex()
Dim Rng As Range, E As Range, i, ii
Set Rng = Sheets("Print Sheet").Range("b1, d1, b6, d6, B11, D11")
With Sheets("Date Sheet")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 6
ii = 0: Rng.EntireColumn = ""
For Each E In Rng
E = .Cells(i + ii, "A")
E.Offset(2) = .Cells(i + ii, "B")
E.Offset(4) = .Cells(i + ii, "C")
ii = ii + 1
Next
With Rng.Parent
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PrintOut
End With
Next
End With
End Sub

複製代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 2011-12-21 15:03 | 顯示全部帖子

回復 11# trainee

Sub Ex()
Dim Rng As Range, E As Range, i, ii
Set Rng = Sheets("Print Sheet").Range("B1, F1, B6, F6")
With Sheets("Data Sheet")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 4
ii = 0: Rng.EntireColumn = "": Rng.Offset(, 2).EntireColumn = ""
For Each E In Rng
E = .Cells(i + ii, "A")
E.Offset(2) = .Cells(i + ii, "B")
E.Offset(2, 2) = .Cells(i + ii, "C")
E.Offset(4) = .Cells(i + ii, "D")
E.Offset(4, 2) = .Cells(i + ii, "E")
ii = ii + 1
Next
With Rng.Parent
.PageSetup.PrintArea = "a1:h10"
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PrintOut
End With
Next
End With
End Sub

複製代碼