用vba制作一个标签打印，M1输入要打印的标签前半部分内容，N1输入要打印的变量，A1是M1加N1的合成值，设计一个按钮循环打印A1直至N1的最大值，打印完毕。

您可以使用以下VBA代码来制作一个标签打印程序，并添加一个按钮用于循环打印A1直至N1的最大值：

Sub 打印标签()
    Dim M1 As String
    Dim N1 As Integer
    Dim A1 As String
    Dim i As Integer
    
    M1 = Range("M1").Value
    N1 = Range("N1").Value
    
    For i = 1 To N1
        A1 = M1 & i
        
        ' 打印标签的代码
        ' ...
        
        Range("A1").Value = A1
    Next i
End Sub

请将上述代码复制粘贴到VBA编辑器中（按Alt+F11打开），然后在Excel表格中的M1单元格输入要打印的标签前半部分内容，N1单元格输入要打印的变量，插入一个按钮（开发工具栏 -> 插入 -> 按钮），然后右键单击按钮，选择"分配宏"，选择"打印标签"宏，点击确定。

现在，当您点击该按钮时，程序将循环打印从M1加上1开始到M1加上N1的标签，直到达到N1的最大值。请确保在“打印标签的代码”部分添加适当的打印代码来实际执行打印操作。

相关问题

用vba制作一个标签打印，M1输入要打印的标签前半部分内容，N1输入要打印的变量，A1是M1加N1的合成值

您可以使用以下VBA代码来制作一个标签打印程序：

Sub 打印标签()
    Dim M1 As String
    Dim N1 As String
    Dim A1 As String
    
    M1 = Range("M1").Value
    N1 = Range("N1").Value
    A1 = M1 & N1
    
    ' 打印标签的代码
    ' ...
    
    Range("A1").Value = A1
End Sub

请将上述代码复制粘贴到VBA编辑器中（按Alt+F11打开），然后在Excel表格中的M1单元格输入要打印的标签前半部分内容，N1单元格输入要打印的变量，运行该宏即可自动在A1单元格中显示M1加N1的合成值，并且您可以在适当的位置添加打印标签的代码。

注意：上述代码中的"打印标签的代码"部分需要根据您具体的打印需求进行编写，这里仅提供了一个示例，您需要根据实际情况进行修改。

vba 标签打印代码 标签大小100*40

要使用VBA打印标签，您可以使用以下代码，并假设您的标签大小为100*40毫米：

Sub PrintLabels()
    Dim LabelSheet As Worksheet
    Dim LabelRange As Range
    Dim LabelCell As Range
    
    ' 创建一个新的工作表用于标签打印
    Set LabelSheet = ThisWorkbook.Sheets.Add
    
    ' 设置标签范围
    Set LabelRange = LabelSheet.Range("A1:A10") ' 假设打印10个标签
    
    ' 调整标签范围的大小以匹配标签尺寸
    LabelRange.ColumnWidth = 11 ' 适当调整列宽
    LabelRange.RowHeight = 4 ' 适当调整行高
    
    ' 循环处理每个标签单元格
    For Each LabelCell In LabelRange
        ' 设置标签内容
        LabelCell.Value = "Label " & LabelCell.Row
        
        ' 调整标签字体大小和对齐方式
        With LabelCell.Font
            .Size = 8 ' 适当调整字体大小
        End With
        LabelCell.HorizontalAlignment = xlCenter ' 水平居中对齐
        LabelCell.VerticalAlignment = xlCenter ' 垂直居中对齐
        LabelCell.WrapText = True ' 自动换行
        
        ' 调整标签单元格的边框
        With LabelCell.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        With LabelCell.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        With LabelCell.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        With LabelCell.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        
        ' 调整标签单元格的尺寸以匹配标签大小
        LabelCell.ColumnWidth = 9 ' 适当调整列宽
        LabelCell.RowHeight = 30 ' 适当调整行高
    Next LabelCell
    
    ' 打印标签工作表
    LabelSheet.PrintOut
    
    ' 删除标签工作表
    Application.DisplayAlerts = False ' 禁止显示删除警告
    LabelSheet.Delete
    Application.DisplayAlerts = True ' 恢复显示警告
End Sub

这段代码将在新的工作表中创建并调整标签范围以匹配标签尺寸。它会循环处理每个标签单元格，并设置标签的内容、字体大小、对齐方式、边框和尺寸。然后，它将打印标签工作表，并在完成后删除该工作表。

请根据您的需求修改代码，并确保标签的行高、列宽和边框样式适合您的实际标签尺寸。