SAo lưu một sheet ra file excell hoặc file ảnh khi in (1 người xem)

[hunglao]

File em gửi lên có 2 sheet
1. data report
2. tranfer form

ở sheet 1 cột AS khi em gõ chữ "t" vào thì nó sẽ lấy dữ liệu ở hàng tương ứng điền vào form ở sheet 2

- EM muốn khi thực hiện thao tác in ở Sheet 2( tranfer form) thì đồng thời nó sẽ xuất dữ liệu ở sheet 2 (vùng A1-S44) ra một file. Tên FIle sẽ là gồm XY: trong đó X là giá trị ô M1( ví dụ TF-09-08-15 ....), Y là ngày thực hiện thao tác (vd: (07-08-09), cấu trúc ngày giờ có thể khác)---> tên file sẽ là TF-09-08-15(07-08-09). Nơi lưu file là mặc định. ví dụ c:\luudata


a, nếu được thì xuất ra cho em là file ảnh ,(ví dụ TF-09-08-15(07-08-09).jpg) và vùng xuất dữ liệu cũng là (A1-S44)

b. Tốt nhất nếu cho phép, em muốn xuất ra là file PDF (ví dụ TF-09-08-15(07-08-09).PDF) và vùng xuất dữ liệu cũng là (A1-S44)

Vì những dữ liệu em xuất ra nhiều khi quên lưu file trên giấy nên cần có cái gì luu lại để đối chiếu . EM nghĩ vậy nhưng không biết có thực hiện được không, mong a/c giúp đỡ em ak
thank a/c nhiều

 

[sinh_havan2000]

Công cụ in ấn trên Excel

Excel có công cụ in vùng rất mạnh, lợi dụng cách in ấn này ta co thể lập các macro in tự động rất tốt bằng cách chọn in vùng lớn bao hết các dữ liệu có thể, sau đó trong từng biểu mẫu in ta cho ẩn các hàng và các cột trong các macro tự động khi ta chạy macro in cố điịnh trên. Bạn nào cần ví dụ gửi câu hỏi về cho tôi theo địa chỉ sinh_havan2000@yahoo.com

 

[hunglao]

cuối cùng em cũng tìm ra
1. Cần có 1 máy in ảo ra PDF, em xài 2 cái này thấy OK với code http://www.cutepdf.com/download/CuteWriter.exe ,
http://www.cutepdf.com/download/converter.exe
( nhớ là cài 2 cái nhé)
2.

Sub PDF_Sheet()
Dim Filename As String

With ActiveSheet

Filename = "e:\hung\" & .Range("M1").Value & " on " & Format(Now, "dd-mm-yy") & " by " & .Range("S22").Value
Range("A1:s44").PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer", Collate:=True

Application.Wait Now + TimeValue("0:00:01")
SendKeys Filename & "{ENTER}", False


End With

End Sub

--> em cần mọi người giúp đỡ em cho phép CODE này chạy song song khi thực hiện lệnh in được không ạ ( tức là cả in ra giấy cả in file PDF)

TimeValue("0:00:01")

là 1s, hơi lâu, mà em không biết sửa sang giá trị bé hơn ạ

 

[RAT_LIEU]

đúng là chỉ có cute PDF mới hoạt động tốt trên code này, còn máy in ảo Adobe PDF dùng lệnh sendkey không được
up lên cho mọi người giúp nè

 

[hunglao]

các a/c giúp mình với