Telefonszámunk: 1-472-0679

Kezdőlap Fórumok Excel témák Nyomtatás Hozzászólás: Nyomtatás

#6348

delila
Felhasználó

Újabban a data.hu sem fogadja az xlsm kiterjesztésű fájlokat. Bemásolom ide a makróját.

Sub Nyomtatas()
    Dim uzlet, sor As Integer, db, kimeno As String, x As Integer, oszlop As Integer
    Dim hol, szam As Integer, ide As Integer
    
    Sheets("Nyomtatandó").Select
    
    sor = 2
    Do While Sheets("Munka1").Cells(sor, "A") <> ""
        Range("A:C").ClearContents
        uzlet = Sheets("Munka1").Cells(sor, "A")
        hol = Application.Match(uzlet, Sheets("Munka2").Columns(1), 0)
        kimeno = Sheets("Munka2").Cells(hol, 2)
        If Sheets("Munka1").Cells(sor, "B") <> "" Then
            hol = Application.Match(uzlet, Sheets("Munka1").Columns(1), 0)
            db = Application.WorksheetFunction.RoundUp(Sheets("Munka1").Cells(hol, 2) / 3, 0)
            szam = 1: ide = 1
            Do While szam <= db
                For oszlop = 1 To 3
                    Cells(ide, oszlop) = "Üzlet száma: " & uzlet & vbLf & "Kimenő sor: " & kimeno _
                        & vbLf & Format(Date, "yyyy.mm.dd")
                Next
                ide = ide + 1
                szam = szam + 1
            Loop
                
            Range("A1").CurrentRegion.Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        End If
        sor = sor + 1
    Loop
End Sub
  • A hozzászólás módosításra került: 6 napja, 15 órája telt el- delila.