Configuración del albarán de entrega de impresión de Excel para generar automáticamente el número de serie

Estimado, esto requiere programación VBA para resolverlo. Suponga que el nombre de la hoja de cálculo que desea imprimir es "Hoja1" y que el número de serie está en la celda F2.

El siguiente código se puede utilizar para incrementar el número de serie primero y luego imprimir. Tenga en cuenta que cuando desee imprimir el primer número, primero establezca el número en NO.201500000.

Abra su archivo de Excel, presione "Alt+F11" para abrir la ventana de edición de VBA, luego haga doble clic en el Thisworkbook correspondiente a la izquierda y pegue el siguiente código en el espacio en blanco a la derecha. Cierre la ventana de VBA. Private?Sub?Workbook_BeforePrint(Cancel?As?Boolean)

If?ActiveSheet.Name?=?"Sheet1"?Then

Application.EnableEvents?=?False

[f2]?=?Left([f2],?7)?&?Format(Right([f2],?5)?+?1,?"00000")

ActiveSheet .PrintOut

Application.EnableEvents?=?True

Fin?Si

Fin?Sub