Page setup có vấn đề khi dùng code

[ali3340tc]

Xin các bạn giải đáp dùm tôi:

Tôi có 1 form để điền các thông tin. Bình thường, khi in, toàn bộ form nằm trên 1 trang giấy và Margins đủ 1 trang. Tuy nhiên, sau khi đặt code cho file này, mặc dù không thay đổi các cái khác, khi in ra, form của tôi chỉ chiếm khoảng 80% trang. tôi đã vào page setup nhưng tất cả đều không thay đổi. Các thông số khác cũng không thay đổi. Nhờ các bạn giúp đỡ.

Dưới đây là đoạn code mà tôi đã sử dụng trong file này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range, PicName As String
  Application.ScreenUpdating = False
  On Error Resume Next
  If Not Intersect([R2], Target) Is Nothing Then
    Set Rng = Sheet3.Range(Sheet3.[B1], Sheet3.[T65536].End(xlUp))
    PicName = Rng.Resize(, 1).Find(Target, LookAt:=xlWhole).Offset(, 20)
    ActiveSheet.Shapes("Pic").Delete
    With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & PicName)
     .Name = "Pic"
     .Left = [B12:O22].Left: .Top = [B12:O22].Top
     .Width = [B12:O22].Width: .Height = [B12:O22].Height
   End With
  End If
End Sub

 

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

Xin các bạn giải đáp dùm tôi:

Tôi có 1 form để điền các thông tin. Bình thường, khi in, toàn bộ form nằm trên 1 trang giấy và Margins đủ 1 trang. Tuy nhiên, sau khi đặt code cho file này, mặc dù không thay đổi các cái khác, khi in ra, form của tôi chỉ chiếm khoảng 80% trang. tôi đã vào page setup nhưng tất cả đều không thay đổi. Các thông số khác cũng không thay đổi. Nhờ các bạn giúp đỡ.

Dưới đây là đoạn code mà tôi đã sử dụng trong file này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range, PicName As String
  Application.ScreenUpdating = False
  On Error Resume Next
  If Not Intersect([R2], Target) Is Nothing Then
    Set Rng = Sheet3.Range(Sheet3.[B1], Sheet3.[T65536].End(xlUp))
    PicName = Rng.Resize(, 1).Find(Target, LookAt:=xlWhole).Offset(, 20)
    ActiveSheet.Shapes("Pic").Delete
    With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & PicName)
     .Name = "Pic"
     .Left = [B12:O22].Left: .Top = [B12:O22].Top
     .Width = [B12:O22].Width: .Height = [B12:O22].Height
   End With
  End If
End Sub

Mình thấy đoạn code trên đâu có thấy có gì liên quan đến chỉnh trang đâu bạn.

Bạn có thể đưa file lên xem thử không?