Board logo

標題: Excel列印sheet問題 [打印本頁]
作者: Mindyj    時間: 2013-5-10 11:27     標題: Excel列印sheet問題

請教先進，在列印excel欄位中，我目前要固定列印範圍分別為：(1)A欄   (2)A1:N7    (3)在sheet第10與11列則選擇倒數13個欄位
請問這樣的範圍要如合執行合併為一個頁面並列印出來呢?  謝謝

[attach]14942[/attach]
作者: mark15jill    時間: 2013-5-10 15:39

請教先進，在列印excel欄位中，我目前要固定列印範圍分別為：(1)A欄   (2)A1:N7    (3)在sheet第10與11列則 ...
Mindyj 發表於 2013-5-10 11:27
  1. Sub owge()
  2. Dim kss  As Integer
  3.    kss = 工作表1.Range("A10").CurrentRegion.Columns.Count

  5. 工作表2.Range("A1:N7").Value = 工作表1.Range("A1:N7").Value
  6. 工作表2.Range("A10:A11").Value = 工作表1.Range("A10:A11").Value

  8. nn = 2
  9. For bb = kss - 13 To kss
  10.         工作表2.Cells(10, nn) = 工作表1.Cells(10, bb)
  11.         工作表2.Cells(10, nn).NumberFormatLocal = "dd/mm/yy;@"
  12.             '=======
  13.         工作表2.Cells(11, nn) = 工作表1.Cells(11, bb)
  14.         nn = nn + 1
  15. Next
  16.     工作表2.Select
  17.     Range("A1:O11").Select
  18.     ActiveSheet.PageSetup.PrintArea = "$A$1:$O$11"
  19. End Sub
複製代碼
作者: Hsieh    時間: 2013-5-10 18:36

回復 1# Mindyj
  1. Sub ex()
  2. Application.ScreenUpdating = False
  3. With 工作表1
  4. .[B:M].Insert '插入B:M欄
  5. .Range(.[B8], .[M65536]).Delete xlShiftToLeft 'B8:M8以下儲存格刪除
  6. .Columns("B:M").Hidden = True 'B:M欄隱藏
  7. .PrintPreview '預覽列印
  8. '.PrintOut  '列印
  9. .Columns("B:M").Hidden = False '顯示B:M欄
  10. .Range("B1:M7").Delete xlShiftToLeft '刪除B1:M7儲存格
  11. End With
  12. Application.ScreenUpdating = True
  13. End Sub
複製代碼




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