Szia!

Köszönöm az ötletet és a segítséged!!

Így oldottam meg:

Private Sub CommandButton12_Click()

    Sheets("leltár").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$150"
    ActiveSheet.PrintOut From:=1, To:=Range("F50").Value, Copies:=3, Collate:=True, _
        IgnorePrintAreas:=False

End Sub

Köszönöm most az a jó megoldás, hogy a =URL.KÓDOL függvényt használva átkódolja majd ebből csinál qr kódot de sajna a qr kód névnek amit lement a gépre annak ezt adja meg pl.: Ez%20egy%20kombin%C3%A1lt%20szekr%C3%A9ny%2012345678
De mind1 így is jó. 🙂