Thursday, October 5, 2023

Export multiple records one by one from Excel

 

Sub Print1()

    For a = 1 To 10

        Sheet3.Range("L2").Value = a

ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, IgnorePrintAreas:=False

Next

End Sub

No comments:

Post a Comment

Command to install direct admin on ubuntu 22.04

 sudo apt update sudo apt upgrade sudo apt install wget gcc g++ make flex bison openssl libssl-dev cd /usr/local/src wget https://www.direct...