In theo lựa chọn ! (1 người xem)

[doanhoanghai]

Mình có vấn đề là mình muốn in mỗi khách hàng thành một trang giấy mà chỉ biết mỗi các print area-->set print area thôi !

Làm thế lâu quá giả sử có 1000 khách hàng thì mỗi lần in ra như thế chắc xỉu mất thôi ! có bác nào biết không giúp em với

Em cảm ơn !

 

[hoangminhtien]

B[FONT=&quot]ạn thử dùng đoạn code này xem. Code còn dài nhờ các cao thủ rút gọn hộ.[/FONT]

    Sub Pinting()
      Dim n, DongT, DongS As Integer
      Dim cll As Range
      ActiveSheet.PageSetup.PrintTitleRows = "$9:$11"
      n = Range("A65536").End(xlUp).Row
      DongT = 12
      For Each cll In Range("A9:A" & n)
          If Left(cll, 2) = "KH" Then
          DongS = cll.Row
              If DongS <> DongT Then
              ActiveSheet.PageSetup.PrintArea = Range("A" & DongT & ":N" & DongS - 1).Address
              ActiveWindow.SelectedSheets.PrintOut
              DongT = DongS
              End If
          End If
      Next
      ActiveSheet.PageSetup.PrintArea = Range("A" & DongT & ":N" & n).Address
  End Sub

 

[doanhoanghai]

Cảm ơn bạn

Nhưng Bạn ơi có cách nào mà không phải dùng đến macro không vậy ?

 

[Hai Lúa Miền Tây]

Cảm ơn bạn

Nhưng Bạn ơi có cách nào mà không phải dùng đến macro không vậy ?

Vậy thì làm = tay, dùng cột phụ rồi muốn in cái nào thì lọc ra in cái đó thôi.
"Hơi phê" ==> Nên dùng code bạn ơi

 

[doanhoanghai]

Cảm ơn các bạn rất nhiều

Bạn ơi mình làm được rồi nhưng cho mình hỏi chút nữa nhé !

Là bây giờ mình muốn in nhưng có cả chân trang giấy thì phải làm thế nào ?

VD :

Hà Nội ngày 12.04.2010

Người lập biểu ký xác nhận :


HẢI

 

[Hai Lúa Miền Tây]

Bạn ơi mình làm được rồi nhưng cho mình hỏi chút nữa nhé !

Là bây giờ mình muốn in nhưng có cả chân trang giấy thì phải làm thế nào ?

VD :

Hà Nội ngày 12.04.2010

Người lập biểu ký xác nhận :


HẢI

Thì bạn cứ thêm vào cuối trang thôi.

 

[doanhoanghai]

Bạn ơi mình dùng macro rồi !

Vì chỉ cần một click thui.

Bạn xem trong file nhé