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

at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

SQL to delete all WooCommerce products except those with "draft" status

 -- Disable foreign key checks (important for InnoDB) SET     FOREIGN_KEY_CHECKS = 0;     -- Delete product meta DELETE     pm FROM     wp_p...