Jan 19 2021 12:43 AM
Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18,NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18").Select
Dim invoiceRng As Range
Set invoiceRng = Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18,NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18")
invoiceRng.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\USER\Desktop\G01.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Jan 19 2021 01:59 AM
Looks like you've hit the limit of 256 characters in the address (it breaks after US1:VJ18 ).
Writing Macros this way isn't too safe, you should try to use Named Ranges wherever possible
Then you could split it into chunks and do Range("Range1,Range2").Select
Wyn
MVP
Jan 19 2021 03:56 PM
SolutionJan 19 2021 05:28 PM
Thnaks bro, it works. @JMB17
Jan 19 2021 03:56 PM
Solution