kapela2017
New Member
- Joined
- Oct 16, 2022
- Messages
- 34
- Office Version
- 365
- Platform
- Windows
In vba the following macro If it is not installed it works perfectly:
To see the complete table I have to uninstall the printer, it is possible to unlink the range Pdf from the Printer paper size ????
I appreciate your suggestions
VBA Code:
With wsDestino.PageSetup
.PrintArea = pdf_range.Address
.Orientation = xlPortrait
.Zoom = False
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.FitToPagesTall = False
.FitToPagesWide = 1
.CenterHorizontally = True
.RightFooter = "Page &P of &N pages."
End With
fechaShape.TextFrame.Characters.Text = fechaHoy
pdf_range.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ar, Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=False
'MsgBox "La Lista fue Creada Exitosamente", vbInformation, "Exito"
For Each Tbl In wsDestino.ListObjects
If Tbl.Name = "Compras1" And Tbl.ListRows.Count > 0 Then
Tbl.DataBodyRange.Delete
Else
Tbl.Delete
End If
Next Tbl
To see the complete table I have to uninstall the printer, it is possible to unlink the range Pdf from the Printer paper size ????
I appreciate your suggestions
VBA Code: