ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¥i§_¥ÎVBA¨Ó±±¨î¦C¦L½d³ò¡H

¦^´_ 1# bvge
ªí®æ¤º®e¬O¥Ñ¤½¦¡¨D±o
©Ò¥H­n¥Î°j°é§ä¥X¸ê®Æ§À
  1. Sub nn()
  2. r = [C65536].End(xlUp).Row
  3. Do Until Cells(r, 3) <> ""
  4. r = r - 1
  5. Loop
  6. ActiveSheet.PageSetup.PrintArea = "A1:AB" & r
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# bvge
µ¥©ó¬O³]©w¦C¦L½d³ò + ¦C¦L¤@¦¸§¹¦¨ (§Ú¦nÃi´k)
¸Ñ¨MÃi´k¤èªk:
¤@¡BÃ㾦^®a·í¤Ö·Ý
¤G¡B¥[±j¦Û§Ú¾³õÄvª§¤O¡A´£¤É¦Û¤vªº¯à¤O


§Q¥Î¨Æ¥óÅX°Êµ{§Ç
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. With ActiveSheet
  3. r = .[C65536].End(xlUp).Row
  4. Do Until .Cells(r, 3) <> ""
  5. r = r - 1
  6. Loop
  7. .PageSetup.PrintArea = "A1:AB" & r
  8. End With
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD