Macro In nhiều sheets và trang cùng 1 lúc (1 người xem)

[lamho27]

Chào các bạn trong diển đàn
Em có 1 classeur trong đó có 2 sheets ( Complet và Incomplet) trong "Complet" có tất cả 8 trang, và trong "Incomplet" chỉ có 1 trang
Em muốn in cả 2 sheet Ex trong "Complet" 3 hoặc 4 trang , số lưọng 2 tờ mổi trang , số trang của "Complet" nằm trong 1 cellule nào dó chẳng hạn (R11)
Cám ơn các bạn nhiều

 

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

Chào các bạn trong diển đàn
Em có 1 classeur trong đó có 2 sheets ( Complet và Incomplet) trong "Complet" có tất cả 8 trang, và trong "Incomplet" chỉ có 1 trang
Em muốn in cả 2 sheet Ex trong "Complet" 3 hoặc 4 trang , số lưọng 2 tờ mổi trang , số trang của "Complet" nằm trong 1 cellule nào dó chẳng hạn (R11)
Cám ơn các bạn nhiều

Bạn thử code sau nhé:

Sub Macro1()

   Sheets("Complet").PrintOut [R11].Value, [S11].Value, [T11].Value
   Sheets("Incomplet").PrintOut , Copies:=2

End Sub

 

[lamho27]

Chào bạn domfootwear
cám ơn bạn rất nhiều , code của bạn rất đúng ý em
nhưng nếu to=0 thì nó bị erreur
Có thể nào nếu to=0 thì "incomplet" sẽ được in

http://www.giaiphapexcel.com/forum/member.php?42738-domfootwear

 

[ptm0412]

Chào bạn domfootwear
cám ơn bạn rất nhiều , code của bạn rất đúng ý em
nhưng nếu to=0 thì nó bị erreur
Có thể nào nếu to=0 thì "incomplet" sẽ được in

http://www.giaiphapexcel.com/forum/member.php?42738-domfootwear

Sub Macro1()

   If [R11] > 0 And [S11] > 0 Then Sheets("Complet").PrintOut [R11].Value, [S11].Value, [T11].Value
   Sheets("Incomplet").PrintOut , Copies:=2

End Sub

 

[lamho27]

Chào bạn ptm0412
Hoàn toàn chính xác như ý em muốn , cám ơn các bạn rất là nhiều