¿Qué experto puede ayudar a traducir esta macro?

Solicitud. Diálogo (xlDialogPrinterSetup). Mostrar

aplicación. (xldialogprintersetup) muestra el cuadro de diálogo.

Ventana activa. Hoja de trabajo seleccionada. Impresión de :=1, a :=1, número de copias:=1, intercaladas_

Ventana activa de hojas seleccionadas:= 1, = 1, := 1, acabado_copia.

:=True 'Imprime la primera página actual.

:= true "Imprime la primera página actual.

Hojas (1). Rango ("B3") = Hojas (1). Rango ("B3"). Unidad de referencia El valor del número de página de la celda c1 + 1 se incrementa en 1.

Tabla (1). Rango ("b3") El valor de la celda de referencia del número de página C1.

Conector final

Postal

SubdeliveryNotificationSave()

SaveSubdeliveryNotification()

La dimensión x es la longitud, y es bytes

x es una variable entera larga, y es un byte

X = Zhang("registro de orden de entrega". [B65536].

X = Tabla ("Registro de orden de entrega"). [b65536]. (3) Fin de línea

y = [MAX(IF($a$5:$a$15<). ;>"",ROW($a$5:$a$15))]

y =[valor máximo(if ($5:15

Form("Registro de notificación de entrega") .range("b"&x+1.":b"&x+y-8).value=range(" F3 ").Value

Table("Registro de orden de entrega").Range(" b" AND x+1 AND "B" AND x+y 8).ValueRange("F3" )

Form("Registro de notificación de entrega"). range("c"&x+1.": C"&x+y-8).value=range("B6"). Tabla de valores("Registro de orden de entrega"). Rango("c" y x+1 "c" y x+y = 8). >

Form("Registro de notificación de entrega"). Range("d"&x+1.":D"&x+y-8).Value=Range("B3"). Registro de pedido").Range("d"andx+1":d"andx+y8).Value("B3")

form("registro de notificación de entrega").range("f"&x +1.":F"&x+y-8).value=range("F7"). p>Table("Registro de orden de entrega").Range("f"andx+1":fandx+y=8) .ValueRange("F7")

Form( "Registro de notificación de entrega").range("e"&x+1.":E"&x+y-8).value=range("F6" ). "Registro de Orden de Entrega"). Rango ("e" y x+1 ":" y x+y 8). Rango de valores("F6")

Formulario("Registro de notificación de entrega"). rango(" g " & x + 1. ":G " & ampx + y - 8). valor = rango("H9:H"&y). Tabla de Valores

(«Registro de Orden de Entrega»). rango("g" y x+1 y "g" y x+y = 8). Rango de valores ("subtipo H9: valor H, Y").

Formulario("Registro de Notificación de Entrega"). rango(" h " & x + 1. ":H " & ampx + y - 8).

valor = rango("A9:B"&y). Tabla de Valores

(«Registro de Orden de Entrega»). rango("h" y x+1 "h" y x+y = 8). Rango de valores("A9: valor b,y")

Formulario("Registro de notificación de entrega"). rango(" I " & x + 1. ":i " & ampx + y - 8). valor = rango("B9:C"&y). Tabla de Valores

(«Registro de Orden de Entrega»). rango(" I " y x+1 y " I " y x+y = 8). Rango de valores("B9: valor c,y")

Formulario("Registro de notificación de entrega"). rango(" j " & x + 1. ":J " & ampx + y - 8). valor = Rango(" C9 :D " & y). Tabla de Valores

(«Registro de Orden de Entrega»). range(" j " y x+1 y " j " y x+y = 8). Rango de valores ("C9: valores D e Y").

Formulario("Registro de Notificación de Entrega"). rango(" k " & x + 1. ":K " & ampx + y - 8). valor = rango("D9:E"&y). Tabla de Valores

(«Registro de Orden de Entrega»). Rango(k y x+1": k y x+y = 8). Rango de valores ("D9: valores e e y")

Formulario("Registro de notificación de entrega"). Rango ( " l " & x + 1. ":L " & ampx + y - 8 valor = rango(" registro").rango("l"yx+1y"l"yx+y=8).rango( "E9: fandyvalue")

form("delivery" NotificationRecord"). Rango(" M " & ampx + 1:M " & ampx + y - 8). valor = Rango(" F9:G " & y). Tabla de Valores

(«Registro de Orden de Entrega»). rango("m" y x+1 y "m" y x+y = 8). Rango de valores("F9: valor g,y")

Formulario("Registro de notificación de entrega"). rango(" a " & x + 1. ":A " & ampx + y - 8). Valor = "=Fila()-1 "

Tabla ("Registro de orden de entrega"). Rango(" & &; 8). Tabla de valores("registro de orden de entrega").rango("&x+1":"andx+y8). valor = tabla ("registro de orden de entrega"). Range(" & fname as string

Cadena difusa

fname = Range("b3 ")

Rango("B3")

Cname aparecerá como cadena

Dim CNAME string

cname = Range("f3")

CNAME=range("F3")

Rango(" A1:J21 "). Seleccione

Rango(A1: J21 "Seleccionar")

Rango(" J21"). Habilitar actividad

Alcance ("J21" activo)

Usar ActiveWorkbook.

Objeto de publicación ("Xiahong_1239")

Y objeto de publicación de libro activo ("Xiaohong_1239").

. HtmlType = xlHtmlStatic

htmltype = xlhtmlstatic

. nombre de archivo = "e:\xiaohongnetworks\pedido de entrega\"&;fname&"+"&cname&".htm "

=". Nombre de archivo:\xiahongnetworks\pedido de entrega \"+" y CNAME

.publish(false)

publicar(false)

auto-publish=false

auto-publish =false

Termina con...

Fin

Conector final

Postal