Kezdőlap › Fórumok › Excel témák › [Resolved] Nyomtatás › Hozzászólás: [Resolved] Nyomtatás
2019-10-09-16:22
#6348
Ú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: 4 years, 6 months telt el-delila.